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"يا أيها الذين آمنوا اتقوا الله وقولوا 
قولاسديدا. يصلح لكم أعمالكم و 
يغفرلكم ذنوبكم ومن يطع الله و 
رسوله فقد فاز فوزا عظيما" 
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الفهرس العام 000 0 0 0 213*350 
عقوي الحعقيية البوحية 21*00 
حول الكتاب: E‏ 
r oooy E E‏ 1 
تجرد وجي لحها الخ سوت الخاست ag‏ 1919*000 
فحكونات العاشوف او O‏ 
الذاكرة الرئيسية أو الحينّ :RAM(Random Access Memory)‏ سس 12 
وحدة معالجنّ البيانات ]11[] 55128ع20 :Central‏ ا La‏ 
الأجهزة 5ع106110: ااا ا DL O E O‏ 
اللغدّ التي يفهمها الحاسوب 1 
تاريخ لغ الفيجوال بسيك 10 
الفيجوال ستوديو 1 
الدوث نیت فريموووك ا ا 010001 
مكتبدٌّ الفئات (/ا5131أ| (Framework Class‏ لاك 
ماهي CLR g MSIL‏ لظ 
آلية التنظيف التلقائي .......................:Automatic Garbage Collector‏ 21 
حمايئّ وصول الحكود :Code Access Security‏ 000 
التحقق من الكود 171111226101 :Code‏ ا ا 
تجو بل الكو الوط الى لال O‏ 
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إنشاء مشروع جديد: الاو تسد نط و لع كارن كاد ا قا واوا اا او DFS‏ 


بيئة التطويرلمشاريع الويندوز a‏ اذ[ ا Oe‏ 
قربحل القوائم: اااي ااا ااا 
متصفح المشروع 1051011 :Solution‏ ع ا او ا ل RE‏ 
شاش الخصائص 1//1120011 :Properties‏ 2000 
علبت الأدوات 1001107 : ا ب سسب 20 
ا ا 2 
قائمن الأخطاء 30.sa: EFFOF LiSt‏ 

أول مشروع في لخت الفيجوال بيسك SD‏ 

الخو اك 061117615 انحوي تت و ا امس SOOKE‏ 

الخصائص 006/1165 SRA‏ ا ا SO‏ 

SV O O Oy Eventsٿادحألا‎ 

10000 1 01011011 ااا‎ ERS Comments التعليقات‎ 

مفهوم المتغيرات sعاVariab ROG‏ مجه امس OSEAN‏ 

الإعلان عن المتغيرات O O a‏ م ا AO‏ 

أنواع البيانات Data Types‏ ا اااي اا 1100000 

اد ال O‏ 

الروايط / المعاملات: OEE‏ 1111 0 
الروابط الحسابية أو الرياضينّ 006/2314015 ACS Arithmetic‏ 
روابط دمج النصوص 006131015 AP esen :String Concatenation‏ 
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روابط المقارنيّ :Comparison operators‏ 000 ااا 


روابط إسناد القيممّ 006131015 Una a :Assignment‏ 
الروابط المنطقينّ 006131015 |163أ08ا: تدد-دبب1ب11-1ج012121 0 
الروابط المنطقيت المختصرة 006131015 aT :Short Circuited‏ 
البنية الشرطيةٌ باستخدام EL EO ON E‏ 
البنية الشرطية باستخدام الأمر ES :56|60] ٥35€‏ ا امبو DE‏ 
البنية الشرطية باستخدام الكلمة | !: O‏ 
البنيهٌ التكرارينّ 5م100 SASSER SS‏ ا 3 1 6 
الصيغة التكراريت الشرطيةّ : )اه لاا 01" ا: ب GP‏ 
الصيغةٌ التكرارية الشرطييٌ م0 00..10 : د77 OO‏ 
الصيغة التكرارية الشرطية ©100..177711 : [ [ [ [ 1[ 21111 
تقديم 11/116: اا 001 GE‏ 
Oia ESSA WE SÛ‏ 
الصيغة التكراريت الشرطيت |011لا..00] : 00010101 O‏ 
الفرق بين 1)11 U‏ و OT OO : While‏ 232000 
الصيغت التكراريت BESE E e : For Each...N ext‏ 
الأمر A O OO :With‏ 
المصفوفات Pies ES RGA RSS RSS A٣۵۷5‏ 
الإعلان عن مصفوفة أحاديت TO RS EASES‏ 
إسناد القيم لعناصر المصفوفة الأحاديت: [ ز[ز[ز[ [ O O‏ 
الحصول على طول المصفوفي: EGS‏ ل OS‏ 
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معالجدّ عناص ر المصفوفب: ES‏ 


ترتيب المصفوفات :Sorting Arrays‏ ش05 


المعحددات OT :Enumerations‏ ل ا 


معالجتة النصوص 5111085 Handling‏ 1101111 


الحصول على طول النص: 1 *ش#*#ظ*1ط 
تكبير حال الأحرف: 01 


تصغير حالىن الأحرف Te‏ ا oS‏ 


اجتزاء النصوص 5100511158 11 RD‏ 


تقسيم النصوص Splitting‏ 0000000 
دمج النصوص 010310108 ا 1 


البحث داخل النصوص ES Contains‏ 


ROE Rعما‎ ٥٤۴ استبدال النصوص‎ 


RSS |٣٥۲۲ إدراج النصوص‎ 


مقارنة النصوص ع01031) e‏ 


ea Format الداليّ‎ 


تنسيق التاريخ والوقت yT‏ 


Functions and Procedures الدوال والإجراءات‎ 


ZI De 


SSR 


9 


210 
IOS RESETS 
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كموي الترامترات يي ا 0 E‏ 


معالجةّ الاستثناءات :Exceptions Handling‏ 10010 
معالجة الاستثناءات المنظممّ Structured Exception Handli^g‏ ...............140 
معالجة الاستثناءات غير المنظمتّ 213001128 ....:Unstructured Exception‏ 144 
الخاتمت 1 100 
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مقدية لقب ال)رنحية: 


بسم الله الرحمن الرحيم الحمد للّه رب العالمين والصلاة والسلام على الرحمت المهداة 
للعالمين. سيدنا محمد وعلى آله وصحبه أجمعين. وعلى التابعين. ومن تبعهم بإحسان 


إلى يوم الدين ثم أما بعد: 


بات لائحا لكل مهتم بالشان المعلوماتي. أن المحتوى البرمجي بالعربية نادر جدا قياسا 
مع أقرانه في اللغات الأجنبيتّ. بل ويفتقر في كثير منه إلى الأساليب البيداغوجيت 
لتوصيل المعلومة بالشكل الذي ينبغي أن تصل عليه به إلى القارىء الهدف. فكان 
المحتوى البرمجي العربي عبارة عن شظايا معلومات متفرقةٌ لا تلبي الغرض ولا تحقق 


المبنتغى. 


في الجانب المكتوب. نجد عطاء يشكر باذلوه عليه إلا أنه يفتقد إلى التنظيم 
والترتيب وفي أحايين كثيرة إلى الإكمال والإتمام. وفي الجانب المرئي يتفاقم الوضع 
ليجد المتعلم نفسه أمام دورات تستهويه بأسمائها لكنها لا تشبع نهمه المعرفي 
بمحتوياتهاء إذ أن موادها لا تحوي جديدا ولا تغطي مفاهيم يتعطش إليهاء وخير دورة 
يحسن صائغوها تقديم محتواها يجدها المتعلم مجرد اجترار لمعلومات مستهلكد 
منتشرة على منابر معرفيةٌ عديدة. 

فلما كان الأمر كذلك تطلعنا بشغف في أكاديمية المبرمجين العرب إلى لم الشعث 
وسد الثغر بشيء من الجهود التعليميئ, فنشرنا قبل زهاء خمس سنوات مجموعيٌ من 
الكتب العريية ضمن سلسلة "كن أسد ا" والتي لاقت رواجا واسعا واستقبلها المتعلمون 
بالقبول الحسن, ثم أتبعنا ذلك بمجموعة من الدروس المرئيد كان أبرزها "دورة سي 
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شارب الكاملة" و"دورة إنشاء برنامج إدارة المبيعات" حيث عرفتا انتشارا واسعا في 
صفوف الطلبة والمعاهد والمبرمجين الأحرار مما حفزنا وبعث فينا روح الأمل والإيجاب 


فقررنا مواصلة المسير واختياض لغات برمجية أخرى واقعرّ ضمن تخصصاتنا. 


ولأتنا قل الله قف اوا لعن الفبجوال نيسيك دوت نيت اعدة زمتية ليست :رة 
واشتغلنا على مختلف إصدارات الدوت نيت فريموورك بدء من الإصدار 1.0 الذي صاحب 
نسختة الفيجوال ستوديو 2003, قررنا أن نجنح نحو هذه اللغت حتى نوفيها حقها من 
الكتابة والتسجيل المرئي لعل الله جل وعلا يفتح على أيدينا عقولا شغفتها لخت 
الفيجوال بيسك حبا فلم يجدوا لولعهم بها من يلبيه. 


في هذا الإطار ومن هذا المنطلق. جاءت فكرة الحقيبة البرمجية باقتراح من أخينا 
الفاضل "حسين العبدلي" من بلاد الحرمين, الذي رأى لي رأيا غير الذي كنت أنتويه 
فكان لي خير موجه وأفضل مرشد., إذ رأى أنه من الحكمة والتعقل أن تكون الدروس 
متسلسلة وفق أجزاء لكل جزء طابعه الخاص» وأن يصاحب كل جزء من هذه الأجزاء 
كتاب يعود المتعلم إليه في حال استعصى عليه مفهوم في التسجيلات المرئية أو 
العكس. وإحقاقا منا لبعض أفضال هذا الأخ الغالي على قلوبنا أدعو كل منتفع بهذه 
الحقيبة البرمجية أن يخصه بدعوة في ظهر الغيب وأن يتولاه المولى تبارك وتعالى 
بحفظه هو وسائر أهله الكرام. 
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حول الكتاب: 


في هذا الكتاب. الذي يعد الجزء الأول من سلسلة كتب الحقيبة البرمجية للخت 
قول عك 2015 سوق تطلع على انناسيات اا املوب ترج وطاق ينا 
من التعرف على جهاز الحاسوب باعتباره الجهاز الذي يشتغل عليه المبرمجون, وفهم أهم 
مكوناته للماديت المتدخلدٌ في عمليات تخزين ومعالجة البيانات. مستعرضين في 
غضون ذلك مفاهيم: البرنامج 22همع220, البرمجي 2128تمدمع2:0, لغات البرمجي 
:Programming Languages‏ أقسامها وأهميتها في صياغة الحلول التقنييٌ وصناعى 
البرمجيات. 


ويحتوي الكتاب أيضا على شرح مستفاض لجميع المفاهيم الأساسينّ في البرمجة. من 
قبيل المتغيرات 17221261©5 وأنواع البيانات 65م157' (ata‏ والروابط 02612015 والينيات 
الشرطيئيٌ 2002016025 والحلقات 5م100 والمصفوفات 4122275 وإدارة الاستثناء ات 
.Exceptions Handling‏ ومعالجة النصوص والعملات والتواريخ String, Currency‏ 
and Date Handling‏ وغير ذلك من المفاهيم الهم بلغ الفيجوال بسيك دوت نيت 
25. 

ويشمل الكتاب كذلك أمثلة تطبيقيت لكل مفهوم برمجي مرتبت على شكل 
خطوات» يسبقها شرح نظري سلس من أجل تهيئة الأذهان وتحضيرها لفهم دور هذا 
المفهوم في العمليت البرمجية واستيعاب آليات استخدامه. مما يخول للقارىء أن يلم 
بك فةاتعوانبهالتططرية والعطلية والبيد اغوي 
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بعد هذا الجزء من الكتاب, يأتي الجزء الثاني الخاص بشرح نمط البرمجة الكائنية 
التوجه Oriented Programming‏ ]ءءزط0, والذي سنتناول فيه بحول الله مختلف 
أسال الله العلي القدير أن أكون قد وفقت في تصنيف هذا الكتاب. و أن يجعله 
خالصا لوجهه الكريم, مع متمنياتي لكم بالتوفيق والسداد ودام لكم البشر والفرح ! 


خالد السعداني 
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تعريف وجيز لجهازالحاسوب / الحاسب 

الحاسوب هو جهاز الكتروني مثله مثل باقي الأجهزة الاالكترونية (تلفاز هاتف جهاز 
تسجيل....) يستخدم لتخزين ومعالجة البيانات. وهو يتكون من جزءين لا ثالث لهماء 
أحدهما آلي ع1305 وهو الجانب المادي الذي يضم مكونات الحاسوب التي نراها 


ونلمسهاء أما الجزء الثاني فهو الجزء البرمجي »50157216 وهو الجانب الخفي المسؤول عن 

تشغيل البرامج والألعاب والملتيميديا من خلال تحكمه في الجانب الالي ع112101:021. 

مكونات الحاسوب المادين 

يتكون الحاسوب من مجموعة من العناصرالمادية نذكرها فيما يلي أهمها: 

الذاكرة الرئيسية أو الحية :RAM(Random Access Memory)‏ 
يمكننا تعريف الذاكرة بانها مجموعة من الخانات المتتاليت والمرقمت عبر عناوين, 
وكل خانة يمكنها أن تحتوي على بيانات, تتم معالجتها من قبل وحدة المعالجت 
كما يمكن للذاكرة أن تقوم بتخزين البرامج (البرنامج هو مجموعة من الأوامر 
المتسلسلءٌ التي يتم تنفيذها للحصول على نتيج معينمٌ). ويتم تمثيل البيانات في 
الذاكرة على شكل ثنائي عبر متتاليات من الأصفار والآحاد كما سنرى فيما 


بعد. 
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كل خانت في الذاكرة مرقمت لكي يسهل الوصول إلى محتواها من قبل وحدة 
المعالجت» ويسمى هذا الترقيم بالعنونة عهزةوء400, أي أن كل خانة لها عنوانها 


الخاص ووع001/. 
ويمكننا تمثيل الذاكرة الرئيسية بهذا الشكل: 
محتوى الذاكرة عناوين الذاكرة 


34527 O0110111 
34528 10100100 
34529 11010010 
3450 10001111 





1 التمثيل الاصطلاحي للذاكرة الرئيسية 


:Central Processing Unit وحدة معالجة البيانات‎ 

وهو الجزء المهم في الحاسوبء ويعد بمثابةّ الدماغ المسؤول عن تنفيذ كل عمليات 
معالجة البيانات المخزنة في الذاكرة. 

ويقوم بكل العمليات الحسابية (الجمع. الطرح» الضربء القسمت ويقوم أيضا 
بالعمليات المنطقية مثل مقازنة البيانات. 

تقوم وحدة المعالجة بأخذ الأوامر المخزنة في الذاكرة على شكل بيانات: وتبدأ في 
تنفيذها بدء من أول أمر وانتهاء بآخر أمر وتقوم بإجراء العمليات الحسابية والمنطقيت 
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الواردة في البرنامج المخزن. وكلما اقتضى الأمر تقوم بتخزين الناتج في الذناكرة 
لتستعمله مع أوامر أخرى, وفي ختام تنفيذ البرنامج تقوم وحدة المعالجة بإرسال 
النتيجة إلى الجهاز الخاص بعرضها رمثلا طباعدٌ نتيجةٌ عملي حسابيةٌ في نافذة 
الكونسول. ستقوم وحدة المعالجة بإرسال النتيجة إلى الشاش 


:Devices الأجهزة‎ 

وهي كل الأجهزة الموصولة بالحاسوب وهناك من يقسمها إلى: 

أجهزة الإدخال ءءء ام1 : لوحت المفاتيح,. سكانر, قارىء الأقراص....إلخ. 
وأجهزة إخراج Devices‏ غ1ام0114: الشاشة, الطابعي. مكبرات الصوت...إلح. 


وأجهزة التخزين وءه٠271‏ 560:0256: أقراص صلبة, مفاتيح اليو أس بي الأقراص. 


لدجم كيت الخ 


اللغم التي يفهمها الحاسوب 

رغم عظم المهام والعمليات التي يقوم بها الحاسوب» إلا أنه ليس ذو ذكاء خارق قياسا مع 
العقل البشري., فهو لا يفهم سوى رقمين 0 و 1 (وهذا تقدير اصطلاحي فقَط لا علاقةٌ له 
يجايكم فا اع هی عسوي کل البيانات س كانت ا عن یی 


صورة. صوت. أو أي ملف آخر فإن الحاسوب لا يراها سوى على شكل سلاسل من 
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الأصفار والآحاد المخزنة في الذاكرة والتي تتم معالجتها وقراءتها بواسطة وحدة المعالجت 
نکی كترم إلى الكل الذي نرافا علية. 


أصفار وآحاد هي لغ الحاسوب, ولأنهما إثنان "2" سميت هذه اللغىّ ب "اللغة الثنائيت 
Language‏ 810317" رغما أن هذه التسميةٌ في المعلوميات الغرض الوحيد منها هو تبيان 
أن الحاسوب يفهم قيمتين متعارضتين فقط, وتم استخدام الأرقام 0 و1 دلالت على ذلك 
والأصل أن المسالت الكترونية, تنبني على التيار المتدفق؛ والمعلومات هي تسلسل لحالت 
التيان لذلك تجد البعض يمثل اللغمّ الثنانيمٌ بالعبارة التالييّ ”تيار يمر. تيار لا يمر" 
كنايدّ على طبيعة البيانات التي يفهمها الحاسوب. هذا ما يقع فيزيائيا. لكن لفهم 
هذه المسائل تقنياء يتم استخدام الثناني 0 و 1 لتمثيل البيانات. 


CY‏ نمثيل البيانات | لني بفهمها الحاسوب عبر الترميز لثناي هو متيل تجربدي 
واصطلاحي بدل على قيمتين حقيقيتين التي يفهمها الحاسوب بصفئته جهازا 
4 الكترونيا (دارة مفتوحة دارة مغلفة), ونستحدم التمثيل لثنائي استنادا على 


وحدتين 0 و1 ويسمى بالترميز لثنائي 67000170 8[۸3۲, على غرار الترميز 


العشري 60600170 066103 الذي يستخدمه الإنسان (الأعداد العشرة 
الإعروفة من 0 إلى 9) لتمثيل الإعلومات, وبعيدا عن الفيزياء مكننا القول: بأن 
الحاسوب لا يفهم سوى الأصفار والآحاد لتمثيل البيانات. 
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تاريخ لغ الفيجوال بسيك 


قبل أن نخوض في بحر الدوت نيت» دعونا نستهل درسنا بالتعرف على أساسيات وأصول 
البرمجد لكي نكون على بينت من أمرها. 

البرمجة تعني كتابة أوامر بإحدى لغات البرمجة وتوجيهها إلى الحاسوب لكي يقوم 
بتنفيذها من أجل أداء عمل ماء وتسمى هذه الأوامر التي نكتبها للحاسوب برنامجا 
07 وتسمى اللغت التي نكتب بها هذه الأوامر لغت برمجيت 0/00/3110 
„Language‏ 


توجد العديد من لغات البرمجية مثل سي بلس بلس. جافا. سي شارب» بايتون» فيجول 
بزيك دوت نيت ولغات أخرى. 

القرطن من مستا لفات البرمحة هو اقسا الد ميخ الاسنان والساسوبه لن 
الحاسوب لا يفهم لغاثنا البشرية ولأننا تحن البشر لا ذفهم لغ الحاسوب الق تكنى 
بلغت اللىت 3001/306 | 307176 اا وحذلك 006) 1301116 أو اللغة الثنائيت 8/١2۲۷‏ 
06 , وسميت كذلك لأنها تستند في تمثيل البيانات ومعالجتها على وحدتين 
ثنتين وهما الصفر والواحد. 

فلكي يكون الحوار بين المبرمج والحاسوب متناغما يتم استخدام لغات وسيطة 
تسمى لغات برمجية من أجل كتابة أوامر مفهومة نسبيا عند الانسان ومن السهل على 
الحاسوب أن يعالجها ويحولها إلى أصفار وآحاد من خلال عمليات الترجمة التي تنفذ 


بواسطة برنامج يسمى المترجم /01110116) وفي بعض اللغات بواسطة المفسر /1]6/60]6|. 
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تعتبر لغ الفيجوال بزيك دوت نيت والتي سننطقها اختصارا ]8.1/6 /أ. من أبرز وأقوى 
اللغات البرمجيدّ. وهي من إنتاج شرك ميكروسوفت الشهيرة, وتأتي لغت )€ .8 
ضمن إطار العمل الذي يسمى بالفريموورك دوت نيت والذي يدعم لغات أخرى إضافت 
إلى 8.1€ ١‏ مثل سي شارب#). وسي بلس بلس ++ اء وأف شارب۴# ... 

وقد تتفاجاً أخي الفاضل إذا علمت بأن تاريخ لغة البزيك 83516 التي تنتمي إليها لغدّ 
8.116 يعود إلى عام 1903 أي عمرها الآن أكثرمن خمسين سنت وتمكننا لخت 
8.116 من إنتاج برامج ويندوز أي برامج وتطبيقات تشتغل على بِيئْدّ الويندوز 
وکا كلك من اج مرامج رتد و اغا انات :وكين کا من 
إنشاء مواقع وتطبيقات ويب ديناميكية قوين ومتقدمة عبر استخدام تقنين 
236 , وأنواع أخرى من المشاريع سنمر عليها إن شاء الله في مختلف أجزاء هذه 
التوف: ارج 


لغت ]8.116 هي لغت عاليت المستوى 130010306 High-Level Programming‏ أي أن 


صيغة كتابة الأوامربها بعيدة جدا عن لغ الآلرّ وقريبة أكثرمن اللغدّ الانجليزية. 


وتقرقن ل الضئوزة آلف تور ا متكا اه قوب و لفاك اة كو لع اة 
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ةر ا لل 


اا 







الو ةلو 





Hgfr-Level Language 


5 
E‏ 5 
03 لاجس ب اس سس ع و ب لس 1 








ernbly Language‏ قمعم 


0 
"N E 
٠ 1 ل‎ 
3-7 | 





3 Mlachine عتصاومق ا‎ 
1 E: 
Har thwya re 





2 أنواع اللغات البرمجية 


كلها كانت اللعات الرسجية و دة عن لف اال سيت بالتغات اليفك الى 
1"6 ۷€ 0۷ وكمثال على ذلك شاهد لغت الأسمبلي أعلاه. وكلما 
ايععدت اللخات الترمحية عن لغة اكل واقترية» مخ لعة الأنسان سمعيت باللعاث الال 
المستوى 3001/3065 10۷۵ 1101| وكمثال عليها شاهد لغات الباسكال والفيجوال 


بيسك دوت نيث... 


ذكرنا أن لخت 8.16 ۷ تنتمي إلى عائلة لغات البزيك التي يعود تاريخ ميلادها إلى عام 
3, لكن النسخ الأولى من لغتنا ظهرت في عام 1990 مع إصدار لغ 1.0 83512 اهلوا ۷ 
التي استمرت ميكروسوفت في إنتاجها وإصدار نسخ منها إلى غاية النسخت 1503/| 
6 0 لتبدأ بعد ذلك في الأفول والسقوطء وبمقابل ذلك ظهر الفيجوال بزيك دوت 
نيت وبدأ يكتسب شهرة كبيرة بين صفوف المبرمجين بسبب سهولته وسلاسته 
اللسكتبطلة مخ صاكلة البزيك ويسبي قوكة ال يمتتمدها مخ نطاق الفرنموورك, 
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بالنسب للبرنامج الذي يمكننا من كتابة برامج بلغدّ 6 |(.8 ۷ فهو يسمى ]100501 M1‏ 
0 1503 ١ء‏ وتوجد به إصدارات كثيرة آخرها هو النسخة 2015 والتي سنستخدمها 
خلال حصصنا إن شاء الله. 


الفيجوال ستوديو 


الفيجوال ستوديو هو برنامج من إنتاج شرك ميكروسوفت. يمكننا من إنشاء 
البرامج بالعديد من اللغات البرمجية بما فيها لغ الفيجوال بزيك دوت نيت. ويمكننا 
من إنشاء أنواع مشاريع مختلفتّ من تطبيقات ويندوز وتطبيقات ويب وتطبيقات 


موبايل وغيرها... 


آخر نسخة تم إصدارها من هذا البرنامج إلى حدود تاليف هذا الكتاب هي النسخة 2015 


والتي سنستخدمها في حقيبتنا البرمجيدّ هذه إن شاء الله. 
ويمكننا تحميله من الرابط التالي: 

http ://www.microsoft.com/en-us/download/detalls.aspx?id 44934‏ 
وهذا رابط مباشريسمح لك بتحميل البرنامج: 


http://download.microsoft.com/download/4/A/0/4A 0D 63BC -OF59-45E3-AOFF- 
901928583BC5/vs2015.preview ult EN U.Iso 


والس لكيقية تله وتكريته كتك العودة إلى الدوسين الغاس والسادس: 
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الدوت نيت فريموورك 

الدوت نيت فريموورك هو إطار عمل أنشاته شركتة ميكروسوفت لإتاحة تطوير 
البرامج باكثر من لغدّ برمجيد. وهو عبارة عن طبقة فاصلة بين نظام التشغيل وبين 
البرائج الق نوما بإعدى لفات جيك يوق را كاة اقكشات والففات الى اجا 


(Framework Class LibrFaFJ) مكتبةٌ الفئات‎ 


وهي مجموعة من الفئات التي يمكننا استخدامها في برامجنا التي ننشؤها بإحدى لغات 
الدوت نيت» وتمكننا من بناء أنواع مشاريع مختلفة» على سبيل المثال: الفئات 
1٣00۷56 5‏ هي فئات تسهل علينا عملية إنشاء برامج بواجهات استخدام 
ser |1613 (GU)‏ |130113. حذلك الفئات 501115 60 /|لا تمكننا من بناء 


تطبيقات ويب يتقنية ]350.16. 


كن الات الأسناء والفتات الى كتا ست اا فى برايحنا الق تصممها بلغات 
الدوت نيت موجودة داخل هذه الباقت المسماة مكتبة الفئات 355|) )0۲ ۴٣a‏ 


Library 
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ماهي .11511 و CLR‏ 


أذ هي اختصارل 30011306 111]6/776013]6 ]101050 1 وتعرف كذلك بالاختصار || 
الذي يعني 130000306 11116/17601368 وكذلك 11) اختصارا ل 010700) 
L€‏ 11]/1760136| وهي الصيغة التي يتم تحويل شفرات الدوت نيت إليها بعد 
عملي الترجمة 10||أ01110), هذه اللغت الوسيطة تحول بدورها إلى لغدّ الآلرّ في زمن 
التنفيذ ۸1١1١۴8‏ أو بعد تنصيب البرنامج على الحاسوب بواسطة مترجم مشهور بالاسم 


1|[ وهي اختصارل 8|أ0170) 1-1176 us)‏ | 


جميع برامج الدوت نيت يتم تنفيذها على آلت افتراضية تسمى 01۸ اختصارا ل 
K0 ٠3001130 Runtime‏ وهي البرنامج المسؤول عن تنفيذ البرامج المكتوبة في 
بيئة الدوت نيت وتضمن 01۸ للبرامج الأمور التاليت: 
آلينٌ التنظيف التلقائي Garbage Collector‏ 41160111211 : 
وتعني أن 01۸ تقوم بإدارة الذاكرة عبر تحريرها من جميع الكائنات 6015 |00 التي 
انتهى دورها ولم تعد تؤشر إلى نوع ماء بمعنى أنك بصفتك مبرمجا لست مطالبا 
بتفريغ الذاكرة وتحريرها من الموارد التي لم تعد مستخدمة لأن 1-11 .) تعفيك من هذه 
المهمة عبر آليت 01|60101) 6310306. 
حماييٌ وصول الكود :Code Access Security‏ 
تعرف اختصارا ب ۸5ء وتعني هذه الخاصية أن 1-11 .) تأخذ بعين الاعتبار صلاحيات 


النظام الذي يتم تنفيذ الكود عليه. بمعنى لو أن الكود يحتوي على أمر ما من 
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شأنه التعديل أو حذف ملف محمي بصلاحيات معينة فإن 1۸ تدير هذا الأمر 
وتحول بين الكود وبين الوصول إلى عناصر الحماية الخاصة بالجهاز الذي ينفذ 
الكو هليه 

التتحقق من الكود Verification‏ ©001): 

هذه الخاصية تعني أن 1۸) تهتم بضمان سلامة تنفيذ الكود كان تمنع البرنامج 
من حجز مكان في الذاكرة غير مسموح بحجزه. وكذلك إدارة الاستثناءات 
والأخطاء الواردة في البرنامج 708011005 1300110. 

تحويل الكود الوسيط إلى لغ الآلم: 

تستخدم 01۸ المترجم |١‏ من أجل تحويل الكود || إلى لغدّ الآلت لتقوم بعد ذلك 


وتشكل ۸ا إقافة إلى دكت الفكات إطاو العمل دوت نيت كريموووك, 


دوت نيت فريموورك = ٤٥1۸‏ + مكتبةٌ الفئات (Framework Class Library)‏ 
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إنشاء مشروع جديد: 

نقوم أولا بفتح برنامج ميكروسوفت فيجوال ستوديو عبر الذهاب إلى القائمتة ابدأ 93۲٣‏ 
في الويندون ثم نكتب في خانة البحث 500/010 5۷ ويظهر لنا البرنامج في نتائج 
البحةه: فتقوم بالضغط هليه لتطالعنا شاشة البدء الآثيت: 


وألنب؟ ادنادذ/ا < 


Ultimate 2015 Preview 





3 صورة انتظار الفيجوال ستوديو 


ننتظرقليلا حتى تظهر لنا شاش الانطلاق في الفيجوال ستوديو وهي كما يلي: 
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00 Start Page - Microsoft Visual Studio © © QuickLaunch (Ctrl+Q) ج > م‎ × 
File Edit View Project Debug Team Tools Test Architecture Load Test Analyze Window Help Khalid ESSAADANI > 
8 - اج 2 فل ف وه‎ Attach... > ق‎ 


Toolbox > 3 <* EES 


Search Toolbox عم‎ 





4 General 


05 جزمن ود رمنود 


There are no usable عند > عدم‎ |® Ultimate 5 Discover what's new in Ultimate 2015 Preview 
group. Drag an item onto this text م ا‎ . 
ES | review You can find information about new features and enhancements in Ultimate 2015 Preview by 
ا‎ reviewing the following sections. 
Learn about new features in Ultimate 2015 Preview 
Start See what's new in the .NET Framework 


Explore what's new in Team Foundation Service 
New Project... 


Open Project... 
Open from Source Control... Connect to Azure 


Learn more about Azure 


Recent Connect © 


Abstract Classes 
Shadowing Relocate the What's New information 
Overloading (Overloads) 


Overloading Part Il 
What's new on Microsoft Platforms 


55 Windows 

لا 

Bw Microsoft Azure 

^ ASP.NET vNext and Web 
85 Windows Phone 
Microsoft Office 

E SharePoint Development 


Overloading 
Namespaces 
Handling ArrayLists 





4 شاشة بداية الفيجوال ستوديو 
لإنشاء مشروع جديد, نذهب إلى القائمة ۳۵ ثم نختار الأمر مشروع جديد 0۷| 
0" كما تعركن الصووة لاني 


0 Start Page - Microsoft Visual Studio 
File Edit View Project Debug Team Tools Test Architecture Load Test Analyze  Windc 





Open ٠ ض}‎ Attach... > 

Î New Project... Ctrl+N 

® New Web Site... Shift+ Alt+N 

ia New Team Project... 

+ . 

New File...‏ ذأ 

5 Open Project... Ctrl+O 6 2015 Discover 
Open Web Site... Shift+ Alt+O 

e an ن‎ You can find ir 
جك‎ reviewing the 
Close Project 


E Learn about new f 
د+ اننا‎ See what's new in 
Explore what's nev 





Ctrl+Shift+S 


5 إنشاء مشروع جديد 
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لتطالعنا الشاشم التاليى: 


- م Recent .NET Framework 4.5 > Sort by: Default -| 5 Search Installed Templates (Ctrl+ E)‏ م 
Installed‏ 4 





VB : 5 
ٌ || Windows Forms Application Visual Basic Type: Visual Basic 
4 Templates A project for creating an application with a 
2 VB 8 
4 Visual Basic ۳ WPF Application Ba Windows user interface 


Store Apps -‏ م 


3 VB 
Windows Desktop EJ Console Application Visual Basic 
Web 

5 VB 

Office/SharePoint | _ | ASP.NET Web Application Visual Basic‏ م 
Cloud 9‏ 
LightSwitch‏ 
Reporting‏ 
Silverlight‏ 


Pave 8 
لع‎ Shared Project Visual Basic 


2 Class Libı Visual Basi 
اه‎ ass Library أقناذا‎ 5351 


vB 
94 8 5 5 
4 1 Class Library (Portable) Visual Basic 


> Other Languages 
م‎ Other Project Types 
Modeling Projects 


VB 
6 Silverlight Application Visual Basic 


VB 
hi Silverlight Class Library Visual Basic 
Samples ف‎ 


VE 
م‎ Online lo WCF Service Application Visual Basic 


(VB 
LightSwitch Desktop Application Visual Basic 


Click here to go online and find templates. 


[First Program 




















6 اختيار خصائص المشروع ( ( 
الشاشة أعلاه تمكننا من اختيار لغت البرمجة التي نريد استخدامها في لمشروع 
وتمكننا كذلك من تحديد نوع المشروع المراد إنشاؤه رمثلا برنامج من نوع ويندوز, أو 
من نوع ويب...) 
نقوم باختيار لغت البرمجت فيجوال بيسك 83560 اهلك ثم نحدد نوع المشروع 
rms Application‏ 17001/5/ا ونقوم بإدخال اسم المشروع وليكن مثلا )٣ا٣‏ 
.Program‏ 
بعد ذلك نضغط على الزر )0 وننتظر قليلا ريثما يتم تهيئة بيئة التطوير وفتح 
المشروع الجديد الذي أنشأناه للتو. 
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بِيئْنٌ التطوير لمشاريع الويندور 












































4 First Program - Microsoft Visual Studio © Quick Launch (Ct I ايت‎ 06 
File Edit View Project Build Debug Team م‎ Test Architecture Load Test Analyze Window Help Khalid ESSAADANI ” 
تل اه ذه - 85 د‎ 5 - Debug -١ [Any CPU جا‎ Start > 6.6 هر‎ 
Toolbox - ا‎ «> > | Solution Explorer - ا‎ «> 
Search Toolbo ود ن 5١و م - م‎ 
Þ All Windows Forms 2 ا‎ Form1 SEIS Search Solution Explorer (Ctrl+$) م‎ - 
4 Common Controls First Pı 
Kk Pointer ve] First Program 
عكر‎ My Project 
Button Þ sm References 
CheckBox ¢ App.config 
82 CheckedlListBox > ES] Formi.vb 
2 ComboBox 
E DateTimePicker 
A Label 
A LinkLabel 2 
E ListBox 
3:" ListView 
(). MaskedTextBox 
MonthCalenda 
E Mon Properties ITE 
kz. Notifylcon 
HE Form1 System.Windows.Forms.Form > 
EE NumericUpDown 3 
Bm 
Fl PictureBox Ela) ¥£ 
ED ProgressBar RightToLeft No 5 
© RadioButton RightToLeftLayoı False 
25  RichTetBox Showlcon True 
ShowlnTaskbar True 
e] TextBox 
0 Size 300, 300 
ا‎ E | || SizeGripStyle Auto 
> e Error List - # »ا‎ |  StartPosition  WindowsDefaultLoce 
WebBrowser -_ 
له‎ Y - |@ 5م08‎ | [4 o Wamings | |@ 0 Messages Search Error List و |]|-م‎ 
م‎ Containers ا‎ 3 0 Tet Form1 
$ Menus & Toolbars Code Description Project File Line TOME E - 
م‎ Data Text 
م‎ Components The text associated with the control. 
م‎ Printing 5 





7 بيئنة التصميم لمشاريع الويندوز 
تعرض الصورة أعلاه أهم مكونات بيئدٌ التصميم الخاصىي بمشاريع الويندوز وهي 
كالتالي حسب الأرقام: 


1. شريط القوائم. 
ويحتوي على كافة القوائم التي نحتاجها في مشاريعنا مجمعة حسب نوع مهامهاء مثلا 
الأوامرالتي تسمح بإنشاء مشروع جديد, أو حفظ الملف الحالي أو ملفات المشروع أو فتح 
مشروع سابق كلها موجودة داخل القائمة ©||]. والأوامر التي تسمح بالنسخ واللصق 
والتراجع والحذف وغير ذلك موجودة في القائمة ]501 والأوامر الخاصة بالمشروع من 
قبيل إضافتّ ملفات جديدة إليه أو استيراد مكتبات وغيرها موجودة في التبويب 
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0 وهكذا دواليك مع باقي القوائ» كل واحدة تحتوي علي الأوامر التي تشترك 
في طبيعى المهام, وهذه صورة لمختلف القوائم التي يتيحها لنا برنامج الفيجوال ستوديو: 


0 WindowsApplication1 - Microsoft Visual Studio 
File Edit View Project Build Debug Team Format Iools Test Architecture Load Test Analyze Window Help 


8 شريط القوائم 
2. متصفح المشروع :Solution Explorer‏ 
وهو الجزء الذي يعرض كاف مكونات المشروع من ملفات ومجلدات وواجهات وغيرهاء 
كل شاش جديدة أو عنصر جديد تضيفه إلى مشروعك سيظهر في هذا الجزى 
ويمكنك كذلك فتح ملفات المشروع منه أو التحكم فيها كإعادة تسميتها أو 
حذفها أو تحديث مكونات المشروع أو عرض جميع الملفات...إذا لم يظهر لك متصفح 
المشروع فقم بالذهاب إلى القائمة 6۷ واخاره من هناك أو اضغط على الاختصار 
| وهذه صورة لمتصفح المشروع: 


Solution Explorer 


0 5-5 û ® 





Search Solution Explorer (Ctrl+ $) م‎ - 
/ My Project 

References‏ 8ه م 
App.config‏ ¢3 

Þ E5] Form1.vb 


Solution Explorer 9 
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3. شاشي الخصائص 1/17111010117 :Properties‏ 
تسمح لنا هذه الشاشة بالتحكم في خصائص الأدوات التي نستخدمها في مشروعناء 
كان نغير نوع الخط أو لونه. أو حجم الأدوات أو موقعهاء ومن خلالها أيضا نستطيع 
الولوج إلى الأحداث ۷85 المرتبطة بكل أداة, إذا لم تكن ظاهرة لديك في بيئت 
التصميم فقم بالذهاب إلى القائمة //16/| واختر منها ٧۷١00۷‏ 2006/1165 أو اضغط 
على المفتاح 4 وهذه صورة لشاشة الخصائص: 





Form1 System.Windows.Forms.Form 


3 3 
RightToLeft No يه‎ 
املزإماغاع اه اغطوا8‎ False 
Showlcon True 
ShowlnTaskbar True 
Size 300, 0 
SizeGripStyle Auto 
StartPosition WindowsDefaultLoca 


Tag 

Text Form1 

TopMost False 
Text 


The text associated with the control. 


Properties Window 10 


4. علبت الأدوات ×0 ۲٥۵18‏ 


وتشمل كل الأدوات التي يمكننا استخدامها في برامجنا من أزرار ومرياعت نصوص 
وقوائم منسدلة3 وغيرها من الأدوات, فقط نقوم بإختيار الأداة ومسكها وسحبها على 
الفورم من أجل استخدامها في برنامجناء إن لم تكن ظاهرة عندك فاذهب إلى القائمت 
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۷ ثم اخترها لكي تظهر. أو اكتف بالضغط على الإختصار (+]|11+4].): وهذه 


صورة لعلبة الأدوات: 





Liles. 
Search Toolbox م‎ - 


> All Windows Forms ج‎ 
Kk Pointer 
Button 
CheckBox 
8= CheckedlListBox 
1 ComboBox 
DateTimePicker 
A Label 
A LinkLabel 
فخا‎ ListBox 
3 ListView 
).(- MaskedTextBox 
MonthCalendar 
kz Notifylcon 
EE NumericUpDown 
FH] PictureBox 
ED ProgressBar 
كه‎ 15 
ToolBox 11 


5. شاشح التصميم: 
تعرض لنا هذه الشاشة الفورم الذي نريد تصميمه في البرنامج: والذي يمكننا تعديل 
خصائصه من شاشة الخصائص كلون الخلفية أو عنوان الفورم.... ويمكننا كذلك 
وضع أدوات عليه عبر سحبها من علبة الأدوات. ويمكننا أن نرى الفورم الذي يظهر في 
شاشة التصميم في مستعرض لملفات مع إمكانيدّ حذفه أو إعادة تسميته...وهذه 
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Form Design واجهة التصميم‎ 2 


6. قائمتّ الأخطاء :Error List‏ 
تهرك هذه لاف الا خط ال تك شن رده عملية التي من غلاا جك 


معرفة مكان الخطأ ليتاتى لك تصحيحه. وهذه صورة لواجهتة الأخطاء: 


AID: - 1 x 


Y - |@ 0 دمع‎ | | f 0Warnings | | 0( 0 Messages | Search Error List م‎ - 

















Code Description Project File Line 


Error List 13 
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أول مشروع في لغدّ الفيجوال بيسك 


سنقوم الآن بالذهاب إلى علبة الأدوات, واختيار أداة الزر [0]]01ا8 الموجودة في التبويب 
0mm 15‏ وكذلك في التبويب 01715 ۱۸00۷5 اء ونقوم بالضغط 
عليها وجرها إلى الفورم الظاهرفي شاشت التصميم: 


oq First Program - Microsoft Visual Studio 
File Edit View Project Build Debug Team Tools Test Architecture Load Test Analyze 


15 - فل اناا كه‎ : + Debug - Any CPU - } Start + 


Search Toolbox م‎ - 


4 All Wind 
Kk Pointer 
fF BackgroundWorker 
@ BindingNavigator 












@ı BindingSource 
Button 

CheckBox 
8= Checkedli 





Button 
Version 4.5.0.0 from Microsoft Corporation 
.NET Component 


Raises an event when the user clicks it. 





3 
ذه‎ DataGridView 
gi DataSet 
DateTimePicker 


#1] DirectoryEntry 





14 


00 First Program - Microsoft Visual Studio 
File Edit View Project Build Debug Team Format Tools Test Architecture Load Test 





1 - 5 0 رما نل‎ v Debug > Any CPU -| jè Start - 

Search Toolbox م‎ - 
ه‎ All Windows Forms ھ‎ 

Kk Pointer 

f” BackgroundWorker 

BindingNavigator‏ "تي 

BindingSource‏ 3ه 

Button 

CheckBox 

8= CheckedListBox 

]2 ColorDialog 

2 ComboBox 

E] ContextMenuStrip 

8 DataGridView 

gi DataSet 

DateTimePicker 

¥1] DirectoryEntry 


5 أداة الزر بعد سحبها على الفورم 
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بعد وضع الزر على الفورم نقوم بتغيير النص الظاهر عليه من شاش الخصائص 
|W‏ الا 2]006/]165, إذا لم تظهر لديك شاشر الخصائص بعد تحديد الزر قم بالضغط 
على المفتاح 4] من لوحت المفاتيح, ثم ابحث عن الخاصية ]© |. واكتب فيها النص الذي 
تريد إظهاره على الزروليكن مثلا 'اضغط هنا". 








































Form1.vb *[مواكع]‎ 2» Properties 3 
Button1 System.Windows.Forms.Button 7 3 
له‎ Form1 EI ERIE َه‎ lA © : 
GenerateMember True نم‎ 2 
Image (عممم) سر‎ 9 
lImageAlign MiddleCenter 5 
Imagelndex كر‎ (none) 9 
9 0 زو‎ ImageKey كر‎ (none) ۳ 
0 اج‎ 0 Imagelist (none) 
Location 86, 92 
Locked False 
Margin 43 
E MaximumSize 0,0 
E MinimumSize 0,0 
Modifiers Friend 
Padding 0, 0, 0,0 
RightToLeft No 
75,23 
0 
True 
ag 
EN حا‎ i. 3 


TextAlign MiddleCenter 
TextlmageRelation Overlay 
UseCompatibleTextRen False 
UseMnemonic True 
UseVisualStyleBackColc True 
UseWaitCursor False 

Visible True 


Text 
The text associated with the control. 
Output 


6 تغيير نص الزر من شاشة الخصائص 
نريد من البرنامج أن يظهر لنا رسالت عند الضغط على هذا الزن لعمل ذلك. نعمل دابل 
كليك على الزرليتم نقلنا مباشرة إلى محرر الأكواد الذي تعرضه الصورة التاليت: 
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00 First Program - Microsoft Visual Studio © Quick Launch (Ctrl+Q لاثم‎ @ × 


File Edit View Project Build Debug Team Tools Test Architecture Load Test Analyze Window Help Khalid ESSAADANI > 








كر 6 > Debug - ١ Any CPU > Start‏ - > عد 2 غل ور وه - 5 د 
3 *ادواععم] vb‏ دوك Toolbox - 7 «> KESEKE‏ 
8 
Search Toolbox 9 - [El First Program - | @, Buttonl - % Cick 3‏ 
All Windows Forms Public Class Form1‏ > 


Common Controls‏ م 


4h « 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 


> Containers 
> Menus & Toolbars 
م‎ Data End Sub 
p Components End Class 

p> Printing 


uonnos‏ ونه رمردر 


Dialogs‏ م 

Reporting‏ م 

WPF Interoperability‏ م 
General‏ 4 


There are no usable controls in this 
group. Drag an item onto this text 
to add it to the toolbox. 





السطر الأول يقوم بالإعلان عن فئت جديدة 1355) تحمل اسم 011171 وهو اسم الواجهت 
الافتراضية لدينا: 


Public Class 501 


سنتعرف على مفهوم الفئات 3556| في الفصول القادمة بالتفصيل إن شاء الله. 
في السطرين المواليين تم إنشاء وظيفة 6)00 | سيتم تنفيذها عند الضغط على الزن 
أي إصدار الحدث)1101): 


Private Sub Button1_Click(sender As Object, © As 
EventArgs) Handles Button1.Click 


End Sub 
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سنتعرف على مفهوم الوظائف 6۸005 | والأحداث 21/6015 بالتفصيل في الفصول 
القادمة بحول الله 


قبل الأمر 5100 10 نقوم بكتابت الشفرة التاليت التي تعرض لنا رسال السلام 
عليكم:: 


("السلام عليكم" ) »“ام8ع Ms‏ 


الدالت 5080| تقوم بعرض رسالة للمستخدم بالنص الذي نعطيه لها. 








0 © Quick Launch (Ctrl+Q اي ألم‎ @# × 

File Edit View Project Build Debug Team Tools Test Architecture Load Test Analyze Window Help Khalid ESSAADANI - 
ره - 5 د‎ mM 5 عد‎ 5 - Debug - Any CPU = } Start > G6 6 قير‎ 

Toolbox SEK KESKE EE Î Form1 vb (Design - 37 

8 

earch Toolbo قر‎ - lFirst Program - @, Button - % Cik 5 

7 7 

4 General APublic Class Form1 ا‎ 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ع‎ 

There are no usable controls in this 3 ITE 

group. Drag an item onto this text | Msg8ox(" ("السلام عليكم‎ 3 

to add it to the toolbox. End Sub = 3 

8 


End Class 


الآن بقى علينا فقط أن ننفذ البرنامج ونشاهد كيف سيظه لعمل ذلك اضغط 

ِ مج و يف سي 
المفتاح ۴5 أو اذهب بكل بساطة إلى الأمر ]5 بجانب المثلث الأخضر ك واضغط 
عليه. وانتظرقليلا ليظهر الفورم كما يلي: 
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عفن الت قط عا الزو سالك الومالة الثالية: 





هكذا نكون قد أنجزنا أول برنامج لنا في لغنّ الفيجوال بيسك, في الفصول القادمت 
سوف نتعرف بالتفصيل على كيفيدّ كتابة الأكواد ومكان كتابتها. 
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- Microsoft Visual 5 


Sample‏ ه4- 


File Edit View Project Build 


فل و كه - 


Ca 


Search Toolbox 


> All Windows Forms يعات‎ 


4 Common Controls 


CheckBox 
CheckedListBox 
ComboBox 
DateTimePicker 


LinkLabel 


Masked TextBox 
MonthCalendar 
Notifylcon 
NumericUpDown 
PictureBox 
ProgressBar 
RadioButton 
RichTextBox 


TreeView 


WebBrowser 


Pointer 
Button 


Label 


ListBox 
ListView 


"i HIÞ > EH 17 E O 


^ 
5 


TextBox 
ToolTip 


Aiy E © BMF B ' 


Þ> Containers 


Þ Menus & Toolbars 


»× اليم ا2 


Khalid ESSAADANI > 


1210|dx3 uon|0§ 


Default عه‎ 
None 
None 
True 


Standard 
Tahoma, 8pt 

| | ControlText 
True 

En (none) 
MiddleCenter 
م‎ (none) 
En (none) 
(none) 

52, 85 





This is a Button Coı ب‎ 
MiddleCenter 


wv 


Þ> Data 
Þ Components 





Output Error List 


8 | Quick Launch (Ctrl+Q) 














DialogResult 
Dock 

Enabled 
FlatAppearance 
FlatStyle 

Font 
ForeColor 
GenerateMember 
Image 
ImageAlign 
Imagelndex 
ImageKey 
lImagelList 
Location 
Locked 
Margin 
MaximumSize 
MinimumSize 
Modifiers 
Padding 
RightToLeft 
Size 

Tablndex 
TabStop 

Tag 

Text 
TextAlign 





Button1 System.Windows.Forms.Button 
ءا‎ 


Cursor 


:Controls الأدوات‎ 


الأدوات هي كل ماستحتاجه لبناء برنامجك. من فورم ۳0۲۳۷ 
وعلب النص 0076© 1 وأزرار 80 وقوائم «15]80| 
وغيرهاء وقد رأينا أين توجد هذه الأدوات وقلنا بانها موجودة 
في علبةّ الأدوات )001001 1 . 

أفردنا كتابا خاصا بشرح الأدوات المتاحة في لغ الفيجوال 
بيك هذا الك اب هو الج الات مق الحقبية الوبعية 
(المرحلة الأولى) ستجده في نفس مجلد هذا الكتاب. 


Properties الخصائص‎ 


الخصائص هي ما يميز شكل الأدوات, مثلا اللون» نوع 
الخط. الحجم. صورة الخلفية, الموقع على الشاشة: وغير 
ذلك من التفاصيل التي يمكنك مشاهدتها في واجهت 
الخصائص عند تحديد أداة معينة والضغط على الزر۴4. 


لنقرب مفهوم الخصائص إلى أذهاننا. سناخذ على سبيل 
المكال بيتاء فالبيت هو يمكابة آداة [011]10) وخضائصه 
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عديدة كلون البيت» ومساحته. وعلوه, و عدد أطباقه وما إلى ذلك, نفس الشيء 
ينطبق على أداوت البرمجت. فكل أداة تتوفر على خصائص تتميز بها عن غبرهاء 
إضافة إلى أنها تشترك مع باقي الأدوات في مجموعة من الخصائص. 


ı3ı0|dx3 هن‎ 


Quick Launch )) 1+0 ص ق‎ 


Khalid ESSAADANI > 





Button1 System.Windows.Forms.Button - 
2 ا‎ 2۶| 
(DataBindings) بهم‎ 
AutoSizeChanged 
BackColorChanged 
BackgroundlmageCh 











BackgroundlmageLay 
BindingContextChant 
CausesValidationChaı 
ChangeUlCues 
5 
ClientSizeChanged 
Context MenuStripChi 
ControlAdded 
ControlRemoved 
CursorChanged 
DockChanged 
DragDrop 

DragEnter 

DragLeave 

DragOver 
EnabledChanged 
Enter 

FontChanged 
ForeColorChanged 
GiveFeedback 
HelpRequested 
KeyDown 

KeyPress 

KeyUp - 


Events الأحداث‎ 


الأحداث هي أفعال تقع على الأدوات في لحظة معينت 
وتؤدي إلى تنفيذ إجراء مرتبط بهاء مثلا حينما نقوم 
بالضغط على زر معين موجود على الفورم» فإن ذلك 
يتسبب في توليد حدث يسمى 1106)) وهو مرتبط 
بإجراء ۲۲0۲801۲۴ سيتم تنفيذها في كل مرة يصدر 
هذا الحدك: 


لكل أداة من أدوات الفيجوال بيسك العديد من 
الأحداث. يمكنك استعراضها من خلال تحديد أداة 
معينة. والذهاب إلى واجهدّ الخصائص ثم الضغط 


على الأيقونت 


Properties > [ x 
Button1 System.Windows.Forms.Button r التاليب:‎ 
e 

Cursor Default > 

DialogResult None 

Dock None 

Enabled True 
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للدخول إلى حدث ما يكفي أن تنقر عليه مرتين وسيتم نقلك إلى محرر الكود., 


وكدديد| إل الجر الط نه أ حضوم دك ةدالق هذا الاتعراء شيك تة اة 


Com n € 1115 التعليقات‎ 


التعليقات هي عبارات نقوم بكتابتها في برامجنا ويتجاهلها المترجم 0000116 لأن 
دورها يكون فقط هو عنوتة وتوثيق 000101168113001 الكود لتسهيل قراءته أو 
لتدوين بعض الملاحظات عليه من قبل المبرمج. 
في لغة الفيجوال بيسك» يمكننا كتابة التعليقات في الكود عبر بدء السطر برمز 
المزدوجة3 الأحادية . وهذه نماذج على بعض التعليقات المتنوعة: 
هذا تحتيق, ,مكتويب ف سطر و احد" 
اف هكا" 


5 0 ا 
ا لأسطر " 


مفهوم المتغيرات Variables‏ 


لنفترض أن العميل طلب منك برنامجا يقرأ رقمين. ثم يطبع أكبرهما (بمعنى أنه 
يريد منك أن تنشىء برنامجا يطلب من المستخدم أن يدخل رقمين كتابةّ من لوحت 
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المفاتيح أو من أي وسيلة إدخال أخرى» فيستقبل البرنامج هذين الرقمين ويقارنهما 
داخليا ويطبع على الشاشة 501661 قيمة أكبر رقم). 


كما تر الحيووة الال 


3 ا4 
41 البحر الشاسع لدخول الخوار زميات من بابها الواسع حك 


أدخل الرقم الأول: 








أدخل الرقم الثاني: 


 [‏ ججح ا 














أول شيء ينبغي أن تفكر فيه. هو أنك ستحتاج إلى عددين للقيام بعملية المقارنت 
وهذان العددان غير ثابتين و غير معروفين مسبقاء لآن المستخدم هو الذي سيدخلهما في 
البرنامج» وأنت لا يمكنك التكهن بهماء لذا فإنك ستحتاج إلى حاويات في الذاكرة 
تضع فيها القيم المدخلت لكي تقارنها في برنامجكء وللولوج إلى هذه الحاويات فانت 
تحتاج إلى إعطائها أسماء مميزة وغير متشابهد,» وكذلك تحتاج إلى تحديد نوع القيمت 


المراد تھا قن کل حاوية. 


القيم التي نجهلها ولا ندري قيمتها مسبقاء ونحتاج إلى تحديد نوع لها وتخزينها في 
الذاكرة تسمى متغيرات أو متحولات 1/3]130165, أي أن قيمتها ليست ثابتت. وأنها قابلت 
للتغيير المستمر أثناء تنفيذ البرنامج 11/11]11116]. 
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إذن» فالمتغيرات هي قيم يحتاجها البرنامج الذي ننشؤه من أجل إنجاز عمليات معينت 
عليهاء والمستخدم هو من يقوم بإدخال هذه القيم إلى البرنامج (عبر لوح المفاتيح مثلا) أو 
البرنامج نفسه يقوم ببعض العمليات ويحتاج إلى تخزين قيم مؤقتة في الذاكرة, 
ويمكن للقيم المدخلة أن تكون من أنواع شتى. إما رقمية, أو نصية, أو عبارة عن 
تاریخ ... 

الإعلان عن المتغيرات 

الإعلان عن متغير يعني حجز مكان في الذاكرة من أجل تخزين قيمت معينة قابلت 
للتغير في زمن التنفيذ ۸10١178‏ (الملقصود بزمن التنفيذ الوقت الذي يكون البرنامج في 
شغالا» في لغة الفيجوال بيسك يمكننا الإعلان عن المتغيرات بالكلمة ألا كما 
بغرن الال التالي: 


Dim VARIABLE_NAME As DATA_TYPE 


نبدأ أولا بالكلمة 0 التي تعني أننا بصدد الإعلان عن متغير ثم نقوم بكتاية اسمه 
مكان ١/5‏ |!_ 8518811 ثم نضع الكلمة ۸5 وبعدها نوع البيانات المراد تخزينها 


وهذه أمثلر لكيفية الإعلان عن مجموعد من المتغيرات: 


متغير رقمي من نوع صحيح طبيعبي' Dim myNumber As [Integer‏ 
متغير رقمي من نوع عشري' Dim myDouble As Double‏ 

Dim myCchar As Char متغير من نوع حرفي'‎ 

Dim myString As String متغير من نوع نصبي'‎ 

متغير من نوع تاريخ ووقت' Dim myDateTime As DateTime‏ 
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متغير من نوع منطقي' 8001630 Dim myBool As‏ 


في المثال أعلاه قمنا بالإعلان عن عدة متغيرات. لكننا لم نعطها قيما بدئيت بمعنى 
أن أماكن هذه المتغيرات في الذاكرة ما تزال فارغة. ويلزمنا إعطاؤها قيما لكي 
نستخدمهاء وهذه القيم إما أن تكون بدئيت يحددها المبرمج في بداية الإعلان عن 
الملتغيرات, أوتكون خلال مرحلة تنفيذ البرنامج بحيث تحصل المتغيرات على قيمها من 
خلال مدخلات المستخدمين. 

أيضا يمكننا الاعلان عن مجموعد من المتغيرات ذات نفس نوع البيانات في سطر 


واحدركما يعرض الال الت 


Dim myNumber1, myNumber2, myNumber3 As Integer 


Data Types أنواع البيانات‎ 


رأينا قبيل قليل مفهوم أنواع البيانات» وذكرنا أنها تمثل نوع القيم التي نريد تخزينها 
في المتغيرات التي نعلن عنها في برامجنا. بحيث لو كانت القيمة رقمية نستخدم نوع 
بيانات رقمي /111606| وإن كانت نصية استخدمنا نوع بيانات نصي 5)۲١‏ وهكذا 
دواليك.... هذه القيم يتم تخزينها في الذاكرة أثناء تنفيذ البرنامج بواسطةت 0111101) 
Language Runtime (CLR)‏ 


الآن بحول الله سوف نتبحرفي أعماق أنواع البيانات لكي نتعرف عليها أكثر: 
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بالنسب3 للقيم الرقمية» سوف نتعامل مع قسمين من أنواع البيانات الرقمية: وهي الأنواع 
الرقمية الصحيحة الطبيعية |١800‏ والأنواع الرقمية العشريت]103]10-2010. 


الأنواع الصحيحة الطبيعية |١800‏ تشمل الأرقام التي لا تحتوي على فاصلة عشرية, 
وتنقسم في لخت الفيجوال بيسك إلى عدة أقسام حسب المجال الرقمي الذي تختص به. 
فهنالك مثلا نوع البيانات الرقمي 8(8 الذي يشمل الأرقام الصحيحة الموجودة في المجال 
من0 إلى 255 ويوجد النوع الرقمي ]501 الذي يبا من العدد 768 32- إلى غاية العدد 32 
07 وهكذا دواليك. بينما تشمل الأنواع العشریت ۴1031۸0-۲01۸ كل الأنواع 
الرقميت بما فيها تلك التي تحتوي على فاصلدّ عشرية ومن بين الأنواع العشريت 
المستخدمت في لغة الفيجوال بيسك النوع 0010018إ. 


في المثال التالي سنقوم بالإعلان عن مجموعةّ من المتغيرات الرقميئٌ الصحيحة الطبيعييٌ 
والعشرية: 


Dim IntegerNumber As Integer 
Dim ByteNumber As Byte 

Dim SByteNumber As SByte 

Dim ShortNumber As Short 

Dim LongNumber As Long 

Dim SingleNumber As Single 

Dim UIntegerNumber As UInteger 
Dim ULongNumber As ULong 

Dim UShortNumber As UShort 
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1: 
بعض الأنواع الرقمية أعلاه ستجدها مسبوقة بالحرف لا مثل 1606| لا و 1010لا وهي 
اختصارل 1606| 0510760 لا ۾ Unsigned Long‏ إلخ.. 


الكلمة 0510760لا تعني أن هذا النوع الرقمي خاص باحتواء القيم الإيجابيت فقط 
بمعنى لو أنك ستحتاج إلى متغير لتخزين القيم الإيجابيدّ فقط دون القيم السلبيت فقم 
بالإعلان عنه من نوع 1510760لا لأنه سياخذ نفس مساحة التخزين في الذاكرة التي 
ياخذها النوع الأصلي إضافة إلى أنه يتيح لك مجالا رقميا يضاعف المجال الرقمي 
الخاص بالنوع الأصلي. 

مثلا النوع ]5101 يسمح باستعمال المجال الرقمي من من 32,768 - إلى /32,/6, لو 
استعملنا النوع 0510760 لأمن هذا النوع سيسمح لنا بتخزين ضعف هذا المجال لأنه لا 
يقبل القيم السلبية وبالتالي سيتيح لنا مجالا رقميا أكبر للاعداد الإيجابيت أي أن 
النوع ]9001 لا سيسمح لنا بتخزين القيم الرقميت من0 إلى 65,535. 


2: 
ستجد في لغة الفيجوال بيسك بعض الأنواع الرقمية الأخرى مثل |١16‏ و ۸32| و 
4 وفي الحقيقة هي ليست أنواع مختلفت بل هي تسميات أخرى لبعض الأنواع 
الرقمية التي أوردنا في المثال أعلاه. على سبيل المثال النوع ١32‏ |هو نفسه النوع 116067 | 


وهذا الجدول يبين هذا الأمر: 
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Integer 


Long 





أما الأنواع النصية, فيوجد لدينا النوع 5)١9‏ الذي يمكننا تخصيصه لتخزين القيم 


النصية ويوج ذلك التواع 011١‏ الذى سمت امك زين ومة واحن :ولبيس سلس #نصية: 


فيما يلي جدول يوضح مختلف أنواع البيانات المتوفرة في لغنّ الفيجوال بيسك: 


Boolean 
Byte 
SByte 
Char 
Date 
Decimal 
Double 
Integer 
Ulnteger 
Long 


UlLong 
Object 
Short 
UShort 
Single 





String 





2 بايت 
1 بايت 
1 بايت 
2 بايت 
8 بايت 
6 بايت 
8 بايت 
4 بايت 
4 بايت 
8 بايت 


8 بايت 
4 بايت 
2 بايت 
2 بايت 


4 بايت 


غالبا 2 بايت لكل رمز 








يقبل القيمتين عد '1'و 182156 فقط. 

من 0 إلى 255 

من 128- إلى 127 

أي رمز أحادي Unicode Symbol‏ 

من 1 يناير 0001 إلى 31 ديسمبر 9999 





من 2,147,483,648- إلى 2,147,483,647 

من 0 إلى 4,294,967,295 

من 9,223,372,036,854,775,808- 

| إلى 9,223,372,036,854,775,807 

من 0 إلى 18,446,744,073,709,551,615 

القيم من جميع الأنواع ممكن تخزينها في النوع tءءزط0‏ 
من 32,768 - إلى 32,767 

من 0 إلى 65,535 

-3.4028235 ٤38 من‎ 

3.4028235E38 إلى‎ 

من 0 إلى 2 بليون رمز أحادي Unicode Character‏ 
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إسناد القيمةٌ للمتغير 

لإسناد قيمة بدئية لأي متغير. فإن الطريقة تكون عبر استخدام رمز يساوي ر = ) ثم 
بعده القيمة المراد إعطاؤها للمتغير. ويممكن عمل ذلك في زمن الإعلان. وكذلك بعد 
الإعلان. وهذه أمثلة توضح هذا الكلام: 


Dim myNumber1 As Integer = 6 
Dim myNumber2 As Integer 
myNumber2 = 245 


في السطر الأول أعطينا المتغير 100۲1 ۳ القيمة 156 في نفس وقت الإعلانء وفي 

السطر الثاني قمنا بإعطاء قيمت للمتغير 100۲2 ل٣١‏ بعد الإعلان عنه. لاحظ أن 

اترات الرقمية تيل اقيم كل .اشن يتما التعيرات اللضية قلاا 

استخدام علامات التنصيص ٠‏ © ووضع النص داخلهماء كما توضح الأمثلة الآتيت: 
"السعداني خالد" = Dim Name As String‏ 


Dim Religion As String 
Religion = "مسلم"‎ 


يمكننا إسناد قيمة متغير إلى متغير آخربنفس الطريقب: 


Dim Number1 As Integer = 06 
Dim Number2 As Integer 
Number2 = Number1 
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أوهكذا باختصار: 


540 
Number1 


Dim Number1 As Integer 
Dim Number2 As Integer 


في المثال أعلاه تم نقل قيمة المتغير ١00۲1‏ إلى المتغير 00۲2| وبالتالي ستصبح 


قيمة هذا الأخير هي 540. 


الروابط / المعاملات: 


الروابط أو المعاملات هي رموز نستخدمها لإجراء بعض العمليات على المتغيرات أو على 
القيم بصفة عامت مثل العمليات الحسابية, أو عمليات مقارنتة القيم (تحديد القيمت 
الحبرى والقيمةٌ الصغرى) وغير ذلك. 


الروابط الحسابيةٌ أو الرياضييّ 06126015 :Arith metic‏ 
وهي روابط نستخدمها في برامجنا من أجل القيام بالعمليات الرياضية مثل الجمع 
والطرح.... وهذا جدول رموز الروابط الرياضية وأمامها الدور المنوط بها: 


ال ا ا ااا 
3 الجمع 

1 الطرح 

+ الجداء ظ 
1 القسمة 

| القسمة الصحيحة الطبيعية 
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Mod‏ | باقي القسمة 
1 القوة | 
الروابط الظاهرة أعلاه هي رموز نستخدمها حينما نود القيام بعملينّ حسابية على 


قيمتين أو أكش وهذه أمثلدّ على استخدام الروابط أعلاه: 


Dim FirstNumber As Integer = 20 
Dim SecondNumber As Integer = 4 


رابط الجمع' 


Dim Sum As Integer = FirstNumber + SecondNumber 


رابظ الطرع' 
Dim Dif As Integer = FirstNumber - SecondNumber‏ 


ر ايبط الضرب 
Dim Mul As Integer = FirstNumber * SecondNumber‏ 


رابط القسمة' 
Dim Div As Integer = FirstNumber / SecondNumber‏ 


ر ابط القسمة الصحيحة' 
Dim IntDiv As Integer = FirstNumber \ SecondNumber‏ 


رابط باقي القسمة' 
Dim Modulus As Integer = FirstNumber Mod SecondNumber‏ 


رايط التوة'"' 
Dim Exp As Integer = FirstNumber ^ SecondNumber‏ 


روابط دمج النصوص 076121015 :String Concatenation‏ 
ويمكننا هذا النوع من الروابط من دمج نصين أو أكثر مع بعضهم البعض. ويكون 
من خلال استخدام الرمز + آو 8ء وهذا مثال على دمج قيمتين نصيتين: 
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Dim Firststring As String = "Think First 
Dim SecondString As String = "Code Later" 
Dim ResultSstring As String = FirstString © SecondString 
' أو‎ 
و‎ 
Dim ResultString As String = 21251511185 + SecondString 


المتغير 5]1|10]|لا1©5! سيحتوي على نتيجة دمج قيمتي المتغيرين المتقدمين, أي أن محتواه 
سيكون هو: „Think First )006 L€‏ 


روابط المقارذي :Comparison operators‏ 
وهي روابط نستخدمها من أجل مقارنة قيمتين وتحديد نوع العلاقت بينهما (أكبر من, 
أصغر من» تساوي. ...) ونتيجة المقارنت تكون منطقية (0001683, أي لا تقبل إلا 
قيمتين: إما صحيح هل۲ وإما خط 358 فيما يلي جدول يعرض رموز الروابط 


المستخدمة في عمليات المقارنة: 


الا دو 
> أكبر من 

< أصغر من 

يساوي 

> يخالف 

ع أكبر من أو يساوي 

=< أصغر من أو يساوي 


وهذه أمثلت على استخدام هذا النوع من الروابط: 











”5 االتتحجة: حناظثة لان 4 لست اكر شخ‎ 
Dim Value1 As Boolean = 4 < 5 
Dim Value2 As Boolean = 4 > 5 
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'5 النتيجة خاطئة لأن 4 لا تساوي‎ 
Dim Value3 As Boolean = 4 = 5 
Dim Value4 As Boolean = 4 <> 5 


الجكختتجة فدخدحة لأن أصغر من 0 يساوي 5" 
Dim Value5 As Boolean = 4 <= 5‏ 


النتيجة خاطئة لأن 4 ليست أكبر من أو يساوي 5' 
Dim Value6 As Boolean = 4 <<- 5‏ 


:Assignment Operators raal روابط إسناد‎ 


وهي رموز نستخدمها من أجل تخزين وإسناد قيمة إلى متغير ماء وقد رأينا في إحدى 
الفقرات السابقة أن أبرز رابط يستخدم لإسناد القيم هو الرابط يساوي رح وهنا قائمت 


لبعضن الرموز الى تخد م معة من أجل تكزين القيم وحسانها فى تفس الوفت. 


= الجمع 
Nz‏ إسناد القيمة بعد حساب القوة 
= إسناد القيمة بعد حساب الجداء 
=/ إسناد القيمة بعد حساب القسمة 
= إسناد القيمة بعد حساب القسمة الصحيحة الطبيعية 
=+ إسناد القيمة بعد حساب الجمع 
ب إستاة القيمة ج الطرح 
e TTT 8‏ 











أكاديمية المبرمجين العرب | 49 


























قد يلوح لك شيء من الغموض في الروابط أعلاه وهذا طبيعي جدا لذا سنعرض في المثال 
الآتي نموذجا لكيفية استخدام كل هذه الروابط التي نستخدمها بغرض إسناد القيم 
في متغيرات معينم: 
تخزين القيمة 5 في المتغير' 
myVariable = 5‏ 


سيتم حساب قيمة المتغير بقوة 2 5 2 وبالتالي ستصبح قيمته 25 
myVariable ^= 2‏ 


سيتم ضرب قيمة المتغير في 2 وتصبح قيمته 25 2 50 
myVariable *= 2‏ 


سيتم قسمة قيمة المتغير على 2 وتصبح قيمته 50 2 25 
myVariable /= 2‏ 


سيتم قسمة قيمة المتغير قسمة صحيحة على 2 أي ستصبح قيمته 25 2 12 
myVariable \= 2‏ 


سيتم إضافة 2 إلى قيمة المتغير وتصبح قيمته 2+12 14" 
myVariable += 2‏ 


سيتم طرح 2 من قيمة المتغير وبالتالي تصبح 2-14 2 
myVariable -= 2‏ 


سيتم دمج قيمة | لمتغير مع القيمة 7 ون تصبح قيمته 12 7 127 
myVariable &= 7‏ 


الروابط المنتطفقيي 006126015 Logical‏ : 


هي روابط نستخدمها من أجل الحصول على نتيجة شرطين أو أكش والنتيجة تكون 
منطقية 8001637 أي لا تقبل إلا قيمتين: إما صحيح ۲۲۴€ وإما خطأ ۳358ء هذه 


الروابط هي ۸١0‏ والذي يعني رى وتكون النتيجة صحيحة إذا كانت كل أطراف 
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الشرط صحيحث, والرابط OR‏ والذي يعني وأو وتكون النتيجد صحيحةُ إذا كان 
هنالك طرف واحد فقط أو أكثرفي الشرط صحيحا. 


کی مط و الزوازهة الاي دعا د رما نلا لو قلف ل موی 


سواء حصر أحمد او ڪمال. 
ان لحكل معي هذا اال اشرق على كيفية استغداء الروايظ المتظلفية: 


لار كا خن ما اذى الك فة ف 
Dim Value1 As Boolean = (3 < 4 And 7 < 5) Value! = True‏ 


)5 8 إذن المتغير قيمته خاطئة” 
Dim Value2 As Boolean = (10 > 9 And 5 = 8) Value2 =‏ 
False‏ 


إحدى العبارتين صحيحة وبما أننا نستخدم الرابط أو فالنتيجة صحيحة” 
Dim Value3 As Boolean = (8 < 4 Or 6 > 2) Value3 = True‏ 


النتيجة خاطئة لأننا نستخدم الرابط أو" 
Dim Value4 As Boolean = (1 > 9 Or 6 = 3) Value4 = +‏ 


العبارة الثانية صحيحة إذن النتيجة صحيحة لأننا ' 
نستخدم الرابط 
Dim Value5 As Boolean = (1 > 9 Or 6 / 2 = 3) 'Value5 =‏ 
True‏ 
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الروابط المنطقييّ المختصرة :Short Circuited Operators‏ 
هي روابط منطقييٌ نستخدمها بغرض اختصار عملي التحقق بناء على شروط كل 
بني من بنيات الروابط المنطقية» على سبيل المثال الرابط ۸0 يتحقق من جميع 
العبارات فإن وجد عبارة واحدة لا تحقق الشرط يعيد لي القيمت خط 3158ء فلو 
افترضنا أن لدينا العديد من العبارات الواجب التحقق من صحتها وأول عبارة تكسر 
القاعدة فالمفروض ألا يتم إكمال عملية التحقق لأنه خلاص بعدم تحقق عبارة واحدة 
فالنتيجة المعادة هي 3158 حتى ولو كانت كل العبارات التي تأتي بعدها تعيد القيمت 
6 أ؛ عند استخدام الرابط المنطقي ۸|١0‏ فإن عملية التحقق تستمرمع كل العبارات 
حتى وإن وجدت عبارة تكسر القاعدة لهذا يحسن الاستعاضة عنها بالرابط الأحادي 
0 الذي يوقف عملية التحقق بمجرد العثور على أول عبارة لا تحقق الشرط 
دون تضييع الوقت في التحقق من باقي العبارات على خلاف الرابط ۸۸0 الذي يعمل 

ببلاهدٌ ويمرعلى كل العبارات حتى ولو وجد عبارة سابقدٌ تكسر القاعدة. 


نفس الكلام ينطبق على الرابط المنطقي 0۸ فالقاعدة تقول أنه بوجود عبارة واحدة 
تعيد القيمة ۲1۴ تكون القيمة العامة المعادة هي ۲€ حتى وإن كانت ڪل 
العياوات الأخرق كفيد القيفة 3156 !: لکن لو اقتركينا أن لديا مكةعيارة مجحب التحقق 
منها وكلها مرتبطة فيما بينها بالرابط 0 وأول عبارة من هذه العبارات تعيد القيمةّ 
6 . المفروض أن تتوقف عملية التحقق من باقي العبارات وإرجاع القيمة ۲۴ بعد 
أول تحقق, إلا أن هذا لايقع للأسف وسيتم إكمال عمليات التحقق من جميع العبارات 


حدن وإن وحدت عباوة سايقة تعيد القيعحة ۲06| ولاعتياز هذه ااشكلة يستحسن 
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استخدام الرابط المنطقي الأحادي 0۲۴158 الذي يوقف عمليات التحقق بعد العثور على 
أول عبارة تعيد القيمة ۲€ دون الحاجة إلى الانتقال إلى باقي العبارات للتحقق منها 


فيما يلي أمثلة لاستخدام الروابط المنطقية الأحاديتّ 50| ۸۸0۸ و 0۲۴158: 


'Value1 = False 

Dim Value1 As Boolean = (3 < 4 AndAlso 7 < 5 AndAlso 8 
> 4( 

'Value2 = True 

Dim Value2 As Boolean = (5 < 9 OrElse 4 = 2 * 2 OrElse 
6 > 4( 


المتغير الأول ۷3161 ستكون قيمته 73156 لأن أول عبارة غير صحيحة وبالتالي 
النتيجة غير صحيحة 3156", الرابط 41108150 سيوقف عمليات المقارنة الأخرى لأن 


القاعدة تحققت مع أول عبارة. 

المتغير الثاني 3|062 ١‏ ستكون قيمته ۲8 لأن إحدى العبارات وهي العبارة الثاني 4 - 
2 2 صبحيحة وبالتالي نتيجة الشرط هي ۲۲8 الرابط 156 0 سيتوقف عند العبارة 
الثانيت ويعيد القيمدّ6|! | لأن القاعدة تحققت مع ثاني عبارة ولا حاجد للتحقق من 
العبارة الثالثت. 
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البنية الشرطيت باستخدام الأمر؟آ: 


أحيانا نحتاج إلى إجراء تحقق من عبارة معينة في برنامجنا. فإن كانت نتيجة التحقق 
تساوي قيمت معينة ننفذ شفرة معيند. وان كان العڪس أو كانت تساوي قيمت 
أخرق فف قفرات اخرق طلى هبل الال تة إنقاء ترامع ينتكون من شاف 
لتسجيل الدخول مثل تلك التي في برنامج 5۸/08 أو برنامج 6558100٣‏ |/أ, فنحن ملزمين 
بالتحقق من اسم المستخدم وكلمة السرالماخلين» إن كانا صحيحين سمعنا بعملية 
الدخول, وإن كان أحدهما خاطنئا أظهرنا رسالت خطأ. 


في البرمجة تسمى عملي التحقق من عبارة معينة شرطا 00۸0/0١‏ أو بنيت شرطية 
|0 10 وصيغتها كما يلي: 


10 الشرط الأول' +1 

ان تحقق الشرط الأول تفذ الأو اصير التثالية' 
Then‏ الشرط الثاني' ElseIf‏ 

إن تحقق الشرط الثاني نفذ الأوامر التالية' 
Else‏ 

إن م يتعقق آي .شرط غا سق فة ما جلي 
End If‏ 


الشرط الأول تضعه بعد الأمراًا فان تحقق يتم تنفيذ الكود الذي يليه وإن لم يتحقق 
لا را ري a‏ فإ تعقق يحم تيد 
الكود الموالي له وهكذا دواليك. فإن لم يتحقق أي شرط من الشروط يتم تنفيذ 


الأوامرالموجودة في البلوك 2156 . 
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الآن لنعطي مثالا نتعلم من خلاله طريقة استخدام البنية الشرطية في برامجنا لنفترض 
أننا بصدد إنشاء شاشة لتسجيل الدخول» مثل الشاشة الظاهرة في الصورة التاليم: 








في شاشة الدخول أعلاه. سيقوم المستخدم بكتابة اسمه. ويكتابة كلمت المرورن 
ونحن سنستقبل هذين القيمتين» وسنقوم بتخزينهما في متغيرين نصيين. ثم 
نقارنهما مع البيانات المسجلة عندنا في البرنامج أو المخزنة في ملف أو قاعدة بيانات, فإن 
كان هناك توافق بين البيانات المدخلة وبين البيانات المخزني. نسمح بعملية الدخول, 
وإلا نظهررسالنّ خطا تعلم المستخدم بان عملي تسجيل الدخول فشلت. 


ناتي أولا ونقوم بتصميم شاشت الدخولء قم بإنشاء مشروع جديد من نوع 1001/5 /|/| 
0101 0۲ ثم اسحب داخل الفورم الأدوات التاليت: 


EG ET 


txtUserName TextBox‏ من أجل ادخال اسم ال مستخدم 

txtPassWord TextBox‏ من أجل ادخال كلمة المرور 

Ibl]UserName Label‏ من أجل عرض النص الخاص باسم 
ا مستخدم 

Label‏ 11171 من أجل عرض النص الخاص بكلمة 
المرور 

btnOK Button‏ من أجل التحقق من البيانات المدخلة 
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btnCancel BuTTon‏ من أجل إلغاء العملية والخروج من 


بعد أن تقوم بتصميم الأدوات وتغيير أسمائهاء انقر الآن على الزر )0110 وادخل إلى 
مكان الكود واكتب الكدد التالي الذي يتحقق من البيانات المدخلت ويقارنها 
ببيانات الدخول المسجلت فإن حصل توافق بينهما سمح بعملية الدخول وإلا فإنه يمنع 
العمليى: 


2 


Private Sub btnOKk_Click(sender As Object, e As EventArgs) 
Handles btnOK.Click 


Dim UserName As String = "myUserName" 
Dim PassWord As String = "myPWD123" 


If txtUserName.Text = UserName And txtPassWord. Text = 
PasswWord Then 
Msg80×)"حاجنب ("تمت عملية الدخول‎ 
Elself txtUserName. Text <> UserName And 
txtPassWord. Text = PassWord Then 
"5 اسم المستخدم المدخل غير صحيح")يام8ع‎ "( 
Elself txtUserName.Text = UserName And txtPassWord. Text 
<> PassWord Then 
("كلمة المرور المدخلة غير صحيحة")لامع وال"‎ 
Else 
("رجاء البيانات المدخلة غير صحيحة")لامقع والا‎ 
End If 
End Sub 


في الكود أعلاه قمنا بالإعلان عن متغيرين 56/1/3116لا و ۳355/0۲0 الأول قمنا 
بتخزين القيمة 5611/3016 لا فيه والثاني قمنا بتخزين القيمة 123 0 ۴ فيه ثم 
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بعد ذلك قمنا بالتحقق من القيم المدخليٌ في مربعات النصوص بالقيم التي قمنا بتخزينها 


إن كان اسم المستخدم يساوي اسم المستخدم المسخل وكلمة المرور تساوي كلمت 
المرورالمد خلدٌ عرضنا رسالد: تمت عمليةٌ الدخول بنجاح. 


إن كان اسم المستخدم مخالفا لاسم المستخدم المدخل وكلمة المرور تساوي كلمي 


إن كان اسم المستخدم يساوي اسم المستخدم المدخل وكلمة المرور تخالف كلم المرور 


أما إن لم يتحقق أي شرط من الشروط السابقة فسوف يتم عرض الرسالة التي يأتت بعد 
الأمر 5158 والتي تقول: رجاء البيانات المدخلة غير صحيحة. 
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البنية الشرطية باستخدام الأمر ٥45€‏ 5©1©©1: 


الأمر C358‏ 961601 يؤدي تقريبا نفس الدور الذي تؤديه البنية الشرطية باستخدام 


الكلية | ابوغالياها فده حا يكو لديا روط دلا عرد ة قت ميدن 





يهعن الكلمة ]|. 
العبارة المراد التحقق منها' Select Case‏ 
الحالة الأولى' Case‏ 
تقك فنا حلي" 
الجالة الثانية' ©6356 
نك فا لے 
الجالة الثالثة' 60356 
لفك مدا لے ' 
إن لم تتحقق أي حالة من الحجالات' Case Else‏ 
نفك ما فلي" 


End Select 


نضع بعد الأمر 0358 561601 العبارة التي نريد التحقق من قيمتهاء فإن كانت مساويت 
للحالة الأولى 356) ننفذ الأوامر التي تليها. وان كانت مخالفة للحالة الأولى وتساوي 
الحالة الثاني ننفذ الأوامر التي تتبع الحالة الثانية...إن لم تتحقق أي حالة من الهالات يتم 
تنفيذ الأوامرالتي تأتي بعد الأمر ٤|58‏ 356). 


سنقوم الآن بإنشاء برنامج يطلب من المستخدم إدخال عدد كواكب المجموعت 
الشمسيت, ويناء على القيمت المد خلىيٌ نظهر له رسالي. 
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كم عدد الكواكب؟ | 








قم أولا بتصميم الفورم كما يظهر أعلاه وذلك بسحب الأدوات التاليت: 


2111111 


ظ txtNumber TextBox‏ | من أجل ادخال عدد الكواكب 
IbINumber Label‏ من أجل عرض السؤال 
btnOK Button‏ من أجل التأكد من الجواب المدخل 





بعد ذلك انقرعلى الزر 0١0)‏ من أجل الانتقال إلى الحدث ٩)‏ الخاص بهء ثم اكتب 


الكود الآتي الذي يتحقق من الجواب المدخل ويقارنه بالعدد الصحيح لڪواڪب 
المجموعىن الشمسيم: 


Private Sub btnOKk_Click(sender As Object, e As EventArgs) 
Handles btnOK.Click 


فتغينق زقمي ‏ توئ علي العدد الصحيح' 
Dim PlanetCount As Integer = 9‏ 


متغير يحتوي على القيمة المدخلة من طرف المستخدم' 
Dim PlanetCountEnterred As Integer =‏ 
Val (txtNumber. Text)‏ 


Select Case PlanetCountEnterred 
Case 9 
MsgBox "ا لجو اب صحيح"(‎ ( 
Case Is < 8 
Msg80×)"حيحصلا ("العدد المدخل أقل من العدد‎ 
Case 10 To 70 
("العدد المدخل يتراوح بين مجال غير صحيح")“5880!‎ 
Case 8 
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("لقد اقتربت من الجواب الصحيح")كا80ع 5الا 
Case Else‏ 
("القيمة المدخلة خاطئة")×Msg80‏ 
End Select‏ 
End Sub‏ 


الي رة بانتسقداء الكلسة 11117 


30 مه هه 


الأمر !|| نستخدمه إذا أردنا تنفيذ أمرمن بين أمرين في حال تحقق الشرط وهو شبيه 


جدا بالرابط الثلاثي 00613]01 03۲۷ في لخت سي شارب. وصيغته كما يلي: 


(الأمر الثاني والأمر الأول والشرط)+11 


إذا تحقق الشرط سيتم تنفيذ الأمر الأول وإذا لم يتم تحققه سيتم تنفيذ الأمرالثاني. 
هذا مئال يغرض كيفية استغداء الأمر۴!|: 

Dim Password As String = "myPWD123" 
Dim Access_State As String = IIf(Password = "myPWD123", 

("كلمة المرور غير صحيحة" و"كلمة المرور صحيحة" 
المتغير 518 ۸0065 سيحتوي على القيمة “كلمة المرور صحيحة لأن قيمة المتغير 
0 تساوي ”123 0 ۷۴“ وبالتالي سيتم تنفيذ الأمر الأول. إن كانت قيمت 
المتغير 355/۷0۲0 مخالفة ل "0123 “J۴‏ سيتم تنفيذ الأمر الثاني وبالتالي تصبح 
قيمت المتغير]00655_5]3 ۸ هي '"كلمة المرور غير صحيحة”". 
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البنية التحكرارية 1.0025 


أحيانا نحتاج في تطبيقاتنا إلى تكرار أمربرمجي معين أكثر من مرة» وهذا لا يعني أن 
نعيد تنفيذ نفس الأمرفقط. بل يمكننا كذلك إجراء بعض العمليات على ڪل 
عنصر يصله التكرار, فلو افترضنا أنه لدينا قاعدة بيانات تحتوي على بيانات 
العملاء. وأردنا إضافة أرقام الهواتف لهم جميعاء ستلاحظ أن عملية إسناد هذا الحقل 
لكل عميل ستستنزف منك وقتا طويلا لا سيما وان كان عدد العملاء كبيرا جداء 
لذلك تعتبر الآليات التكرارية أو الحلقات هي أفضل خيار لتكرار تعليمات معينت 
بقدر محدد مع إمكانيمٌ إضفاء لست خاصدٌ على كل عنصر تبلغه البنيهٌ التكراريم. 
أو لنفترض مثلا أننا بصدد برمجة تطبيق صغير يخزن قيمة رقمية في متغير معين 
ويطلب من المستخدم تخمين هذه القيمت حتما نحن لا نعرف عدد الاحتمالات التي 
سيقوم بها المستخدم لكي يصل إلى نفس القيمة المخزنة عندناء لذلك يتوجب طرح 
نفس السؤال في كل مرة يدخل المستخدم فيها قيمدّ مخالفة للقيمة المخزنم. 

أو لنفترض أننا بصدد إنتاج برنامج بسيط يسال المستخدم عن اسم أول خلفاء الدولت 
العباسيئٌ, فإن كان الجواب صائبا يتوقف البرنامج وان كان الجواب خاطنًا يعيد طرح 
السؤال على المستخدم إلى حين يحصل على الجواب الصحيح. في حالتنا هذه نحن لا 
نعلم عدد المرات اللازمت لكي يجيب المستخدم بالجواب الصائب, لذلك فنحن بحاجة إلى 
إجراء تكرار للأمرالذي يطبع السؤال في كل مرة يخطىء المستخدم في الإجابة. 


توفرلنا لخت الفيجوال بيسك عدة أنواع من البنيات التكراريد. سنستعرضها بالترتيب 
في الفقرات القادمي. 
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الصيغتة التكراريق الشرطيت : 112 :۴0١‏ 
تمكننا البنية التكرارية ۳0۲.6 من تكرار أمر برمجي معين لعدد مرات محدد, 


حيث تسمح لنا بتحديد نقطتي بدايثٌ ونهايدٌ التكرار مع إمكانيدٌ تحديد معامل 


For Count = Start To End [Step Step] 
'[statements [ 
[Exit For] 

Next Count 


حيث المتغير ألا0) هو العداد الذي سيحدد عدد مرات تكرار الأمر برمجي» ويبدأ من 
القيمة الرقمية 5|3 وينتهي بالقيمة الرقمية [١0‏ مع إمكانية تحديد معامل التدرج 
رفي كل تكرار بكم تزداد أو تنقص نسبة العداد افتراضيا تكون الزيادة بواحد) 
في الأمر 5]60, بعد ذلك نقوم بكتابة الأمر البرمجي الذي نود تكراره. ويمكننا 
الخروج من التكرار من خلال الأمر ۴0١‏ ×5 في ختام البنية التكرارية نضع الكلمة 
|| متبوعة باسم العداد راختياريت ويمكننا عدم كتابة اسم العداد)» وفيما يلي 


مكال سيط وفع كيفية استخدام هذا التوع من الحلقات: 


قم بإنشاء مشروع من نوع 0۸ا00 ۸ ۴۵۲۳۶ 1000115 N‏ ثم اسحب على الفورم 





الأدوات التاليت وغير خصائصها كما يلي: 

ا 
ItNumbers ListBox‏ من أجل عرض القيم الناتجة عن التكرار 
btnRepeat Button‏ من أجل تنفيذ أمر التكرار باستخدام 


For..Next الحلقات‎ 
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قم بتصميم الفورم كما تعرض الصورة الاآتيم: 


For...Next jai 











انقر على الزر ]01116063 مرتين من أجل الانتقال إلى الحدث C٤)‏ الخاص به. واكتب 
الأمرالتالي: 


Private Sub btnRepeat_Click(sender As Object, e As 
EventArgs) Handles btnRepeat.Click 
منتغبز رقي متاية عغداق. للخلقات"”‎ 
Dim nCount As Integer 
For nCount = 0 10 10 Step 1 
Me. lbNumbers. Items. 200) " :العنصر‎ " & nCount) 
Next 


End Sub 


قمنا بالإعلان عن متغير رقمي اسمه ]1الا0.) ثم استعملناه في عملية التكرر ليبدأ 
من العدد 0 وينتهي بالعدد 10 مع الزيادة بواحد عند كل تكرار, وفي كل مرة يقوم 
التكرار بإضافت قيمة العداد إلى أداة 1006۲5 0| مدموجة مع النص "العنصر, عند 
تنفيذ هذا الكود ينبغي أن نحصل على نتيجرّ مماثلة للصورة الآنيم: 
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© لہ 60 ضا‎ 0١ عر رم زيا كل ان‎ O 


عم 


1111111111! 











ملحوظى: 
الأمر 5]60 في المثال أعلاه لا دور له لأن نسبة الزيادة الافتراضية هي 1. ويمكننا 
استخدامه في حال أردنا تغيير قيمة التدرج» كما يوضح الكود الآتي الذي غيرنا فيه 
قيمت 51©0: 
Dim nCount As Integer‏ 
For nCount = 0 To 10 Step 2‏ 


Me. 1bNumbers. Items. 200) " :العنصر‎ " © nCount) 
Next 


هذه المرة جعلنا نسبة التدرج هي 2 وبالتالي سنحصل على النتيجة التاليت عند تنفيذ 
الحود أعلاه: 
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For...Nex لمر‎ 











Dim nCount As Integer 


For nCount = 27 To 6 Step - 3 
Me. 1bNumbers. Items. 200) " :العنصر‎ " © nCount) 
Next 


بعد تنفيذ الكود أعلاه سنحصل على النتيجة الآتيت: 
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الصيغم التكراريي الشرطيي م100..1,00 : 
ترتكز البنية التكرارية من نوع 00..1008 على شرط التكرار وحسب نتيجته يتم 
إعادة تنفيذ الأوام ويوجد بها عدة أنواع سوف نتعرف عليها بالترتيب: 
الصيغة التكرارية الشرطية م1زط00..W‏ : 
هذه البنية التكرارية تكتمد على نتيجة الشرط الذي ياتى بعن الكلسة 116 ال 
ويتم تكرر تنفيذ الأوامرمادامت نتيجة الشرط متحقةة ۲۷86ء وهذه صيغتها: 

00 


' الأوامر‎ 
Loop while الشرط'‎ 


ستتعرف الآن حول الله على مثال لأستخذام هذه البنية التكرارية قم بإتشاء مشروة 
جديد من نوع 0011031017 01155 |٣005‏ /الا واسحب على الفورم الأدوات التاليت: 


رجاء قم بإدخال رقم: 
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وسرت ساس ا 


IbINumber Label‏ من أجل عرض السؤال 

txtNumber TextBox‏ من أجل إدخال الرقم 

btnCalculate Button‏ من أجل حساب جدول 
ضرب الرقم 

IbDetails ListBox‏ من أجل عرض نتائج جدول 
الضرب 














الآن أدخل إلى الحدث |٤)‏ الخاص بالزر 0031٨۷38‏ وقم بكتابة الكود الآتي: 


Private Sub btnCheck_Click(sender As Object, e As 
EventArgs) Handles btnCalculate.Click 


Dim Number As Integer = Val(txtNumber. Text) 
Dim Counter As Integer = 0 
Do 
1bDetails.Items.Add(Number & " * " & Counter & " 
= " & Number * Counter) 
Counter += 1 
Loop While Counter <= 10 


End Sub 


أعلنا في الأول عن متغير اسمه 10۴| يستقبل القيمة المدخلة في مربع النص 
1 ل بعد أن يقوم بتحويلها إلى قيمت رقمية من خلال الدالة أ۵ ثم بعد ذلك 
أهلنا عن متغير عداد اسمه 0010١‏ أعطيناه القيمة 0 كقيمة بدئيت. ثم بدأنا 
عملية التكرر التي تقوم بعرض نتيجة ضرب قيمة العدد المدخل 1000| مع قيمت 
العداد 01١0‏ التي تتغير تزايديا عند كل تكرار ويتم تكرار هذه العمليت 
التكرارية إلى أن تصبح قيمة العداد 10 أي أن جدول الضرب الذي سيعرض سيظهر لنا 
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نتيجنّ جداء العدد المدخل مع الأعداد الإحدى عشر الأولى بدء من 0 وانتهاء ب 10, أي بعد 
فيد ارتام لو ادغلا القبمة 0 ستعضل غلى النشبحة الاين 


رجاء قمر بإدخال رقم: 


8 


حساب جدول الضرب 


عم نم ب 
O 0 O‏ لط نم 
(١ |! (| |! |! N UN U (| II‏ 


5 


o 
بء هه‎ 
نم‎ 


HN #‏ +4 *# + + # + +« +« م 


© لہ 60 ض‎ 0١ عر رم دی كد ان‎ O 


ıl 
55 





0 00 00 00 00 00 00 00 00 00 من 








يكنا تقديم الكل 6[ بهد الكلمة 00 وستحصل على تقس النقيجة 
كما يلي: 
Dim Number As Integer = Val(txtNumber. Text)‏ 
Dim Counter As Integer = 0‏ 
Do while Counter <= 10‏ 
1bDetails.Items.Add(Number & " * " & Counter & "‏ 
Number * Counter)‏ & " = 


Counter += 1 
Loop 


الفرق بين تقديم ۸|8 | وبين تأخيرها يتمثل في أن الأولى تمنع تنفيذ الأمر إلا بعد أن 
يتحقق الشرط بينما ١/۸/6‏ التي تأتي في الأخير بعد 1000 تسمح بتنفيذ الأمر للمرة 


الأولى حتى مع عدم تحقق الشرط. والكود التالي يوضح الفرق بين الأمرين. 
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تقديم While‏ : 
Do While 1 = 3‏ 
("هذا الكود لن ينفذ أبدا")×g80عMs‏ 
Loop‏ 


في الكود أعلاه لن يتم عرض الرسالة لأن شرط ||| غير متحقق لأن 1 لا يساوي 
ثلاثت ولأن ۸|8 | جاءت أولا في بداية التكرار. 
تأخير 1زظ :W‏ 
Do‏ 
("هذا الكود سينفذ مرة واحدة")×g80عMs‏ 

Loop While 1 = 3‏ 
في الكود أعلاه سيتم عرض الرسالة في كل مرة يتم تنفيذه لأن 8| أتت في نهايت 
التكرار على خلاف الكود الأول. 
الخ التكوارية ال ك اناو ل56 : 
مثلها مثل البنية السابقة ۸٥‏ ..00 إلا أن هذه البنيت تسمح بتكرر الأوامر إلى أن 
يتحقق الشرط وليس مادام الشرط متحققاء بمعنى أن التعليمات التي ستاتي بعد 
الكلمة 00 سيتم تكرارها إلى غاي تحقق الشرط الذي يات بعد الكلمة ألا لاء 
الفرق بين 172011 و :While‏ 
While til)‏ 
تسمح بتكرار الأوامر إلى أن يتحقق الشرط آي تسمح بالتكرار مادام الشرط متحققا ويخرج من 


التكرار حينما لا يتحقق الشرط أي تصبح نتيجته 


False 





تصبح نتيجته ©1111 





سنشتغل على نفس ال مثال السابق الذي يقوم بحساب جدول الضرب» لكن هذه المرة مع 
استخدام الأمر | [](ا لا بدل 8| اء أي أن الشفرة ستكون كما يلي: 


أكاديمية المبرمجين العرب | 69 





Private Sub btnCheck_Click(sender As Object, © As 
EventArgs) Handles btnCalculate.Click 


Dim Number As Integer = Val(txtNumber. Text) 
Dim Counter As Integer = 0 
Do Until Counter = 10 
1bDetails.Items.Add(Number & " * " & Counter 8 " 
= " & Number * Counter) 
Counter += 1 
Loop 


End Sub 


لاحظ أننا غيرنا الشرط؛ بدل أن يكون العداد أصغر من أو يساوي 10 أصبح معنى 
الشرط, قم بتكرار الأوامر إلى أن يصبح العداد '1]6الا0.) مساويا ل 10 وفي كل مرة 
تزداد قيمته بواحد إلى أن يتحقق الشرط فينتهي التكرار لو نفذنا الكود أعلاه 


وأدكلتا العدد ()/ بكلا سوق تحصيل فك التقبجة الثالية: 


رجاء قم بإدخال رقم: 


70 


حساب جدول الضرب 


55 
B8 
IM I 


نت س دم د ظط اي O‏ اك ته صا 
SEEEEEEEEE‏ 
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رأينا فيما تقدم أنه يمكننا تسبيق الكلمة ۸|8 | وتأخيرهاء نفس الكلام ينطبق 
على الكلمة أأأ لا يمكننا وضعها في البداية بعد الكلمة 00 ويمكننا كذلك 
وضعها في نهايت التكرار بعد الكلمة 1000ء في الحالتين معا سيتم تنفيذ الأوامر 
مادام الشرط غير متحققاء بمعنى أن الكود التالي: 


Do Until 1 = 3‏ 
( "هذا الكود سينفذ من دون توقف لأن الشرط غير متحقق ولن يتحقق " ) ×80 ع5" 
Loop‏ 


موتفسه الأكضود التالى: 


Do 
"هذا الكود سينفذ من دون توقف لأن الشرط غير متحقق ولن يتحقق" ) ×80 ع5×‎ ( 
Loop Until 1 = 3 
ففي الحالتين معا سيتم عرض الرسالة من دون توقف لأن الشرط غير متحقق دائماء‎ 


ومادام الأمركذلك فستسمر عملية تكرر الأوامر. 


: For Each...Next الصيغىيٌ التكراريني‎ 


For Each Item As DATA_TYPE In GROUP 
الأوامر المراد تكرارها على العناصر'‎ 
Next Item 
سنقوم بإنشاء برنامج بسيط يستقبل اسم المستخدم ويقوم بتقسيمه وتوزيعه إلى‎ 
حروف متفرقيٌ وعرض كل حرف في سطر.‎ 
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قم بإنشاء مشروع جديد من نوع 40011036100 ۴0۲۳۶ ۸00۷5 وضع عليه الأدوات 
التاليت: 


رجاء أدخل اسمك الكامل: 














5 سیا e‏ 
IbI1Name Label‏ من أجل عرض السؤال 

txtName TextBox‏ من أجل إدخال الاسم 

btnSplit Button‏ ظ من أجل تقسيم الاسم وتوزيعه 
1bDetails ListBox‏ | من أجل عرض الحروف المكونة للاسم 








انقر على الزر ]0115011 مرتين من أجل الولوج إلى الحدث ٤))‏ وقم بكتابة الكود 
التالى: 


2 


Private Sub btnSplit_Click(sender As Object, © As 
EventArgs) Handles btnSplit.Click 


Dim Ful1lName As String = txtFul1Name. Text 
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For Each chr As Char In ع111131نء‎ 
Me. 1bDetails. Items.Add(chr) 
Next 


End Sub 
في الشفرة أعلاه قمنا بالإعلان عن متغير اسمه 3۴€ ۸۱|ألا۴ يستقبل القيمة النصيت‎ 
۴0۲ ۴2٥۸ المدخلى في مربع النص 376 ال۴1 ثم بعد ذلك بدأنا البنية التكراريد‎ 
التي تاخذ كل عنصر من عناصر المجموعة رفي حالتنا هذه كل حرف من السلسلت‎ 


النصيت وتقوم بعرضه في أد اة 15]801-ا. 


:With الأمر‎ 


يسمح لنا الأمر ١١‏ بتكرار مجموعة من الأوامر التي تشير إلى نفس الكائن 010/601 
على سبيل المثال. نريد تغيير خصائص زر معين بواسطة الكود. بدل أن نكتب 
الأوامرالتاليت: 


Button1. Tex = "النص الظاھر"‎ 

Button1.BackColor = Color.Blue 

Button1.Size = New Point(100, 40) 

Button1. ForeColor Color. Yellow 
Button1.TextAlign = ContentAlignment.MiddleCenter 
Button1.Focus( ) 


نقوم بتعيين اسم الكائن وفي حالتنا هذه هو الزر المسمى 8/011 في الجزء ]أا ثم 
نقوم باستدهاء الوظائف والخصائص مباشرة بعد كتابة رمز النقطة كما يلي: 


With Button1l 
"الظاهر النص" = خ×هآ.‎ 
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.BackColor = 20102.81 

.Size = New Point(100, 40) 

.ForeColor = Color.Yellow 

.Focus() 

.TextAlign = ContentAlignment.MiddleCenter 
End With 


المصفوفات Arrays‏ 
خلال الفقرات السابقة كنا نتعامل مع المتغيرات» ورأينا كيف تسمح لنا بتخزين 
القيم في الذاكرة. ورأينا كذلك أن كل متغير مخصص لاحتواء قيمدّ واحدة, ولا 

يمكن للمتغير الواحد أن يستقبل أكثرمن قيمدّ في وقت واحد. 

لذلك لو افترضنا أننا نريد إنشاء برنامج لحساب معدلات الطلبة. بحيث يستقبل هذا 
البرنامج نقطة الطالب في كل مادة من المواد التي يدرسهاء ثم يقوم بحساب المعدل العام 
قد تقول لي: بإامكاننا عمل ذلك من خلال الإعلان عن مجموعة من المتغيرات حسب 
عدد المواد لدينا ثم نجري عليها عملية حساب المعدل العام ساقول لك بان جوابك 
صائب, لأنه لو أردنا مثلا حساب معدل طالب معين في عشرة مواد يدرسها. سوف نعلن 
عن عشر متغيرات رقميةٌ لاستقبال نقاط الطالب, بالطريقة التاليى: 


Dim Value1, Valuez2, Value3, Value4, Value5, Value6, 
Value7, Value8, Value9, Value10 As Double 
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لكن هذه الطريقة ليست مجدية إذا كنا سنحتاج إلى تخزين قيم كثيرة, لأننا سنجد 
صعوبة في استحضار أسماء المتغيرات. ناهيك عن صعوبة تتبع الكود وقراءته. 
لحل هذه المشاكل وغيرها وجد مفهوم المصفوفات 113!/5/, بحيث نستخدمها حينما نود 
تخزين مجموعةٌ من القيم المنتمييٌ لنفس نوع البيانات في متغير واحد» ويرتكز مفهوم 
المصفوفات على ركيزتين أساسيتين هما: 
القيمة ©771: وهي القيم المراد تخزينها في عناصر المصفوفة, لو أخذنا مثلا مصفوفت 
لتخزين درجات الطلاب في المواد فإن الدرجات هي القيم. كل درج عبارة عن قيمىٌ 
سيتم تخزينها في عنصر معين من عناصر مصفوفةٌ المواد. 
الرتبىّ <ع1201: وهي رتبت العتصرداخل المصفوفي, وتبدأ بصفر وتنتهي برب اخرصتصر 
ناقص واحد» مثلا لو أردنا تخزين الدرجات في مصفوفة المواد فإن التمثيل الفعلي 
الرتبة 0 
N-Î‏ نا ناكا 4 3 2 1 0 


العنصر الووجود في الرتبة 4 يي ابدام 
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نستطيع الوصول إلى أي عنصر من عناصر المصفوفة من خلال رتبته ۸06| هذا النوع 
من المصفوفات الذي نتحدث عنه يسمى المصفوفات الأحاديتة البعد 0۸6-8۸51012 


لأنها تحتوي على بعد واحد يضم العناصر بشكل خطي كما يعرض الشكل 


أعلاه, بحيث يمكن تمثيلها على شكل خانات متسلسلة لكل خانة رتبت وقيمت. 
الإعلان عن مصفوفي أحاديم: 


للإعلان عن مصفوفة أحادية في لخت الفيجوال بيسك, نستخدم نفس طريقة الإعلان 
عن المتغيرات مع إضافت قوسين لتحديد عدد العناصر الممكن تخزينها في هذه 
المصفوفة, في المثال التالي سنقوم بالإعلان عن مصفوفة رقمية من نوع عشري ©|0ا/001] 
من أجل احتواء نقاط الطلاب: 

Dim Marks(9) As Double 
اللصفوفة أعلاه مكونة من عشرة عناصر عشرية لأن الترتيب يبدأ من صفر وينتهي‎ 


إسناد القيم لعناصر المصفوفت الأحاديت: 

لإسناد القيم لعناصر املصفوفت. يمكننا ذلك في نفس وقت الإعلان كما يلي لكن 
لا ينبغي لنا تحديد عدد العناصر لأنه سيعرف من خلال القيم التي أسندناها لحظت 
الإعلان: 
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Dim Marks() As Double = {20, 19, 14, 17, 13, و11.5‎ 
16.25, 18.75, 9, 15} 


في المثال أعلاه أنشأنا مصفوفة رقميت مكونتة من 10 عناص العنصر قيمهم كما 


2 


وو 9ه 


3 
| 


ار 
ل 
SoS GERE E‏ 


15 











ويمكننا كذلك إسناد القيم بعد الإعلان عن المصفوفة وتحديد عدد عناصرها كما 
يوضح المثال التالي الذي يؤدي نفس الكود السابق: 
Dim Marks(9) As Double‏ 


Marks(O0) = 20 
Marks(1) = 19 
Marks(2) = 14 
Marks(3) = 7 
Marks(4) = 13 
Marks(5) = 11.5 
Marks(6) = 16.25 
Marks(7) = 18.75 
Marks(8) = 9 
Marks(9) = 15 
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الحصول على طول المصفوفم: 
لعرقة هدة الستاصو املكوكة لالمصفوفة سكا ذلك من خلال الخاصية 81011 .| 
و11.5 ,13 ,17 ,14 ,19 ,20{ = Dim Marks() As Double‏ 
}15 ,9 ,18.75 ,16.25 
MsgBox(Marks. Length)‏ 
بعد تنفيذ الكود أعلاه سنحصل على رسالت مفادها أن عدد العناصر الملكونت 





ويمكننا أيضا الحصول على طول المصفوفة باستخدام الخاصية ١ا0‏ كما يبين 
المثال التالي: 


Dim Marks() As Double = {20, 19, 14, 17, 13, و11.5‎ 
16.25, 18.75, 9, 15} 


MsgBox(Marks. Count) 


سنحصل على نفس النتيجة السابقت. 
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معالجي عناصر المصفوفب: 
الذي نريد. كما تعرض لنا الأمثلة التاليت: 


Dim Marks() As Double = {20, 19, و11.5 ,13 ,17 و14‎ 
16.25, 18.75, 9, 15} 


Dim Value As Double = Marks(2) 
MsgBox (Marks (8) ) 
Dim Sum As Double = Marks(1) + Marks(4) 
ولكي نتعرف أكثر على كيفية معالجة عناصر المصفوفات, سنقوم بتصميم‎ 
برنامج بسيط يطلب من المستخدم أن يدخل عدد عناصر مصفوفة رقمية, ثم نقوم‎ 
بإسناد قيم عشوائية لهذه العناصر ثم نحسب المتوسط 416/306 ونعرضه في رسالت‎ 
.]-15]801 ونطبع قيم العناصرفي أداة‎ 


قم بإنشاء مشروع جديد من نوع 4001103]100/ ۴0۲۳۶ ۸00۷5 وضع عليه الأدوات 
الثالية: 


رجاء أدخل عدد عناصر المصقوفة: 
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الأدا اسيا د 














IblArray Label‏ من أجل عرض السؤال 

txtArray TextBox‏ من أجل إدخال عدد عناص ال مصفوفة 
btnAvg Button‏ من أجل حساب متوسط المصفوفة 
IbDetails ListBox‏ من أجل عرض قيم عناص ال مصفوفة 

الآن انقر مرتين على الزر 0۸۷4 من أجل الولوج إلى الحدث 1106) وقم بكتابة الكود 
التالي: 


Private Sub btnAvg_Click(sender As Object, e As 
EventArgs) Handles btnAvg.Click 


Dim ItemCount As Integer = Val(txtArray. Text) 

Dim intArray(ItemCount) As Integer 

Dim Rand As New Random 

Dim Sum As Integer = 0 

For Count As Integer = 0 To intArray.Length - 1 
intArray(Count) = Rand.Next (100) 
1bDetails.Items.Add(intArray (Count) ) 


Sum += intArray (Count) 
Next 


Dim Average As Double = Sum / intArray.Length 
المتوسط الحسابي للمصفوفة هو:" ) ×80 ع دالا‎ " & Average ( 
End Sub 
الآن تعال بنا نشرح هذا الكود أمرا بامر:‎ 


أكاديمية المبرمجين العرب | 80 














Dim ItemCount As Integer = Val(txtArray. Text) 


في المتغير |800١‏ قمنا بتخزين عدد عناصرالمصفوفة المدخل بواسطة المستخدم. 


Dim intArray(ItemCount) As Integer 
مکوت من هده العتاضر للخل من طرف‎ 41١۹7 ثم أغلتا عن مصبقوقة اسه‎ 
المستخدح.‎ 


Dim Rand As New Random 
الكائن 13110 اتشاناه يغرطن الخضول على قيع رقمية صقواكية حسب الجال الس‎ 


سوف نحدده له فيما بعد. 


Dim Sum As Integer = 6‏ 
هذا المتغير 0ا5 أنشأناه بغرض الحصول على مجموع قيم عناصر المصفوفد لكي 


For Count As Integer = 0 To intArray.Length - 1 


هذا التكراريبدأ من 0 وينتهي بأخر عنصر في المصفوفى. 
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intArray(Count) = Rand.Next(10) 
في كل تكرار سنقوم بإسناد قيمة عشوائية جديدة أقل من 100 للعنصر الذي يصله‎ 
.]13/10011 المستنسخ من الفئة‎ ۸3١0 التكرارمن خلال الدالت ]© || التابعة للكائن‎ 


1bDetails.Items.Add(intArray (Count) )‏ 
ثم نقوم بعرض قيمة العنصر الذي يصله التكرار في أداة 80| التي أسميناها 
65 (ا0|. 


Sum += intArray (Count) 
في كل مرة نقوم بإضافن قيمدٌ العنصر إلى مجموع قيم العناصر التي مر عليها‎ 
التكرار.‎ 


ثم بعد ذلك نخرج من التكرار ونقوم بحساب المتوسط وصيغته كما هو معلوم هي: 
Dim Average As Double = Sum / intArray.Length‏ 
بعد ذلك قمنا بطباعهٌ النتيجيّ في رسالم. 


Average (‏ 8 " المتوسط الحسابي للمصفوفة هو:" ) ×80 ع ا" 
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لو نفذنا الكود أعلاه كاملا وأدخلنا مثلا القيمة 10 كعدد لعناصر المصفوفت 
فسوف تكون النتيجد كما يلي رمع الأخذ بعين الاعتبار أن قيم العناصر ستكون 


عشوائيم): 





المتوسط الحسابي للمصفوفة هو: 3.18181818181818 





OO LON هرم 60 لكل‎ ORS 














مثال آخر: 


سنقوم الآن بالتعرف على مثال يوضح كيفية استخدام المصفوفات الأحاديت اليعد. 
وهذه المرة سنتعامل مع المصفوفات النصية. 


البرنامج الذي سنقوم بإنشائه الآن هو برنامج بسيط يقوم بعرض قيمدٌ كل عنصر 
مص حوب بعد د الحروق الكونة له 
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Dim WeekArray(6) As String 


weekArray (0) = "الأحد"‎ 
wWeekArray (1) = "الاثنين"‎ 
wWeekArray (2) = " "الثلاثاء‎ 
WeekArray(3) = "الأربعاء"‎ 
wWeekArray (4) = "الخميس"‎ 
weekArray (5) = "الجمعة"‎ 
wWeekArray (6) = "السبت"‎ 


For Each Day As String In WeekArray 
1bDetails.Items.Add("pgı: " & Daj 8 " ":من يتكون‎ 8 
Day.Length & " .حروف‎ ") 
Next 


يوم: الأحد يتكون من:5 حروف. 

يوم: الاثتين يتكون من:7 حروف. 

يومر: الثلاثاء يتكون من:8 حروف. 

يوم: الأربعاء يتكون من:8 حروف. 

يومر: الخميس يتكون من:6 حر وف. 

.يوم الجمعة بتكو قن 0 7302 دا سس سس سه سس ع و 
أيوهرة الييت تكو 0 2 اا 
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ترتيب المصفوفات :Sorting Arrays‏ 
يمكننا ترتيب المصفوفات النصية حسب الترتيب الأبجدي. كما يمكننا ترتيب 
المصفوفات الرقمية من الأصغر إلى الأكبر. لعمل ذلك تتيح لنا لغىّ الفيجوال بيسك 


الدالت ]501 التابعة3 للفئة ۸۲۲۵ء ويمكننا استخدامها كما يلي: 


Dim NamesArray(4) As String 


"خالد" = )0( NamesArray‏ 
"ناد" = )1( NamesArray‏ 
"محمد" = )2( NamesArray‏ 
"كمال" = NamesArray(3)‏ 
"عبد الكريم" = )4( NamesArray‏ 


Array. Sort(NamesArray) 
Me. 1lbDetails. Items. 20053086 (NamesArray) 
الدالت ۸00۸3708 تسمح بإضافت جميع عناصر المصفوفة إلى أداة ×5(80 || بدل استخدام‎ 
الآليات اتك رة أو إسافة كل عض ر على سدة مو خلال الدالج 00ل‎ 


سكل نف الكو أطلا سوق اص غا اد اة 
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لاحظ أن الأسماء تم ترتيبها حسب الحروف الأبجدية. نفس الكلام ينطبق على الأرقام, 
ولحي نفهم الأمر أكثر شاهد المثال التالي: 
}3 ,12 ,9 ,1 ,6 و18 = Dim NumbersArray() As Integer‏ 
Array.Sort(NumbersArray)‏ 
For Count As Integer = 0 To NumbersArray.Count - 1‏ 


Me. 1bDetails. Items. Add (NumbersArray (Count) ) 
Next 


عند تنفيذ الكود أعلاه سوف نحصل على عناصر المصفوفة مرتبت بشكل تزايدي 
رمن الأصغر إلى الأكبر): 
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قلب عناصر المصفوفي 

تعرفنا قبل قليل على ترتيب المصفوفات. وذكرنا أنه يمكننا ترتيب عناصر 
المصفوفات تزايديا من خلال الدالت ]501 التابعت للفئةّ (4113, الآن سوف نتعرف على 
عمليخّ قلب عناصر المصفوفة ليصبح آخر عنصر هو أو عنصر وهكذا دواليك من خلال 
استخدام الدالت ۸0۷8۲58 التابعة لنفس الفئة !113 / كما يعرض لنا المثال التالي: 


Dim myArray() As Integer = و44‎ 2, 3, 1} 


عرض المصفوفة قبل الترتيب' 

("قبل الترتيب")200. 1615 Me.1bDetails.‏ 

For Each Item As Integer In myArray 
Me. 1bDetails. Items.Add(Item) 

Next 


عرض المصفوفة بعد الترتيب" 

Array.Sort(myArray) 

Me.1bDetails. Items. Add("بıترتلJا "بعد‎ 

For Each Item As Integer In myArray 
Me. 1bDetails. Items.Add(Item) 
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عرض المصفوفة بعد القلب' 
Array. Reverse (myArray)‏ 

Me. 1bDetails. 16115 "بعد القلب")200.‎ 
For Each Item As Integer In myArray 
Me. 1bDetails. Items.Add(Item) 

Next 


عند تنفيذ الكود أعلاه سوف نحصل على النتيجة الآتيت: 


٤ 


ع 


4 
2 
3 
1 
بعد 
1 
2 
3 
4 
بعد 
4 
3 
و 
1 
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المصفوفات المتعددة الأبعاد 
تمثل المصفوفات المتعددة الأبعاد نوعا آخرمن المصفوفات النادرة الاستخدام وأشهرها هي 
المصفوفات الثنائية البعد والتي يمكننا تمثيلها على شكل جدول يتكون من أسطر 
وأعمدة, ويتم الإعلان عنها بالصيغد التاليى: 
Dim TwoDimArray(2, 5) As Integer‏ 

ويمكننا أيضا الإعلان عنها كما يلي: 

Dim 0)/ا001114113ا1‎ To 2, O0 To 5) As Integer 
اللصفوفة الثنائية التي أعلنا عنها أعلاه مكونة من 3 أسطر و 0 أعمدة, أي أنها تحتوي‎ 
على 50 3 غتصرا أى 18 حتضراء‎ 


يمكننا تمثيل عناصر هذه الملصفوفة الثنائير على شكل جدول كما يلي: 





)0,0( )0,1( )0,2( )0,3( )0,4( )0,5( 
)1,0( )1,1( )1,2( )1,3( (1,4) )1,5( 
(2,0( )2,1( | 22( | 23( | 24 | )2,5( | 


يمكننا اسناد القيم لهاته العناصرمن خلال رتبهاء فيما يلي أمثلت على ذلك: 


Dim TwoDimArray(2, 5) As Integer 
TwoDimArray(@, 3) = 3 
TwoDimArray(1, 4) = 195 


TwoDimArray(2, 1) = 56 
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إذا أردنا أن نعالج عناصر المصفوفات الثنائييّ البعد من خلال تكرارء علينا القيام 
بتكرارين. الأول يذهب من أول سطر إلى آخر سطر والتكرار الثاني يذهب من أول 
عمود إلى آخر عمود؛ فيما يلي مثال بسيط نستعرض من خلاله مصفوفة مكونقّ من 
سطرين وثلاثة أعمدة أي أنها تحتوي على 0 عناص ثم سنقوم بإسناد بعض القيم لهذه 
العناصر بعد ذلك سنقوم بعرضها: 


الإعلان عن الصمفوفة الثنائية' 
Dim myArray(1, 2) As Integer‏ 


تتعنفة. الفظر الول" 
myArray(O0, 0) = 7‏ 
myArray(O0, 1) = 2‏ 
myArray(O0, 2) = 5‏ 


تغيتة السشسطر التاتي' 
myArray(1, 0) = 3‏ 
myArray(1, 1) = 8‏ 
myArray(1, 2) = 6‏ 


الأغلان. عن عداد للاشطزر وللاعمدة' 
Dim row, col As Integer‏ 


التكرار الأول من أجل الأسطر' 
For row = 0 To 1‏ 
التكوان. التاتي من أجل الأغمد:' 
For col = 0 To 2‏ 
1bDetails.Items.Add(myArray (row, col) )‏ 
Next‏ 
Next‏ 


أغتا عن مضفوفة اسمها ١١۸۲6۷‏ مكونة من سظطرين وخكلاةة أعمدة ووضعتا بها 
مجموعة من القيم ثم قمنا بعرض هاته القيم من خلال البنيات التكرارية: عند تنفيذ 
هذا الكوة سوق خضل على التتينعة الكالية: 
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المعحددات 1:1111111©1:2610115: 


نستخدم المعددات إذا كنا نريد تحديد قيم محددة ثابتدةٌ ليتم تخزينها في متغير ماء 
مثلا حينما نريد حفظ أيام الأسبوع في برنامجناء فنحن نعلم مسبقا أن مجال أيام 
الأسبوع محدد والقيم معروفة لذلك يمكننا استخدام المعددات بدل الإعلان عن 
مجموعة من الثوابت 0115]311]5). 


حينما يكون لدينا مجموعة من الثواب التي تنتمي إلى نفس المجال. مثلا أيام أسبوع, 
أسماء فواكه: ألوان.... فيفضل أن نقوم بتجميعها داخل المعددات ليصبح استخدامنا 


لهذه الأنواع مرنا بدل تشتيت الكود في الإعلان عن مجموعة من الثوابت. 
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قم بإنشاء مشروع جديد من نوع !0011036101 01175 ۸00۷۷5 وقم بتصميم الواجھت 











Ibl1Color Label‏ من أجل عرض النص 
ComboBox‏ ظ cmbColor‏ من أجل اختيار لون خلفية الفورم 


الآن سنقوم بإنشاء معددة 1101116/3]1075] خاصتة بأسماء الألوان التي نريد تعبئة 
الكومبوبوكس بهاء قم بالضغط بيمين الماوس على الفورم واختر006) ۷0١۷‏ كما 


2 
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00 WindowsApplication1 - Microsoft Visual Studio 


File Edit View Project Build Debug Team Format Tools Test Architecture Load Test Analyze Window Help 

©- 3 - فل ی ده‎ 5 Debug - Any CPU | } Start ~ ر لاق 6 و‎ 
Toolbox - ١ < ERE] 
Search Toolbox م‎ - 
م‎ All Windows Forms 03 Enumerations لم المعددات‎ 
4 Common Controls 

اختر لون خلفية الفورم: 3 Kk Pointer‏ 

Button 

CheckBox 

8= CheckedListBox 

E] ComboBox <> View Code 

DateTimePicker 8 Lock Controls 

A Label 

SP / Properties 

3:: ListView 

(.). MaskedTextBox 

MonthCalendar 

kz Notifylcon 

EE NumericUpDown 

e «٠ 
بعد ذلك قم بإنشاء المعحددة كما يلي:‎ 
Public Class Form1 


المعددة ۴۸0010۲5 تحتوي على مجموعة من 


Enum EnumColors 
Red 
Blue 
Green 
Purple 
Orange 

End Enum 


End Class 


الثوابت التي لها رتب تبدأ من 


3 


صر 
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Blue 
Green 


Purple 


2 

لأا اا سا 
= 
©6 
ك 








Orange 
يمكننا التحكم في رتب العناصر اللكونة للمعددة عبر إسناد القيمة الرقميت‎ 
: اکل ایت من القوانث كما مان‎ 


Enum EnumColors 
Red = 4 
Blue = 2 
Green = 1 
Purple 
Orange 

End Enum 


3 
0 


عند التعامل مع عتاضر هد «العددة يبكون التزتيب مبنيا غلى القنيه الرقمية الى ثم 
إسنادها لحكل عنصر. 


ألأن ستقوم يتميكة الكوببويوكسن الذي أسنميتاة 0111800101 اسما الألؤاق إمايدديا 
أو من خلال إنشاء مصفوفة» قم بالولوج إلى الحدث 0111_1030" الخاص بالفورم من خلال 


الأقارضلية رركن واحخعي الشف ة الا 


Dim ArrayColors() As String = {"Red", 
"Blue", 
"Green", 
"Purple", 
"Orange"} 
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Me.cmbColor.Items.AddRange(ArrayColors) 


بعد ذلك قم بالنقر مرتين على أداة 0080 K0‏ التي أسميناها 077900101 من أجل 
الانتقال إلى الحدث 56/60]601706001130060 الذي يصدر عند اختيار عنصر من عناصر 


الكومبوبوكس. ثم اكتب الشفرة التاليى: 


Select Case cmbColor.SelectedIndex 
Case EnumColors. Red 
Me.BackColor = Color. Red 
Case EnumColors. Blue 
Me.BackColor = Color.Blue 
Case EnumColors. Green 
Me.BackColor = Color.Green 
Case EnumColors. Purple 
Me.BackColor = Color.Purple 
Case EnumColors.Orange 
Me.BackColor = Color.Orange 
End Select 


الكود أعلاه يتحقق من رتبت القيمت المحددة في الكومبوبوكس. فإن كانت 
تساوي صفر وهي نفس رتبت اللون الأحمر في المعددة 00۲5 £00 يتم تغيير لون 
خلفية الفورم إلى الأحم وهكذا دواليك مع باقي الألوان» عند تنفيذ الكود أعلاه 
سوق تحصل علي اا اا 
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فيما يلي الكود الكامل لهذا البرنامج البسيط الذي استعرضنا فيه مفهوم المعددات 
0105 : 


Public Class Form1 


Enum EnumColors 
Red 
Blue 
Green 
Purple 
Orange 

End Enum 


Private Sub Form1_Load(sender As Object, e As EventArgs) 
Handles MyBase.Load 


Dim ArrayColors() As String = {"Red", 
"Blue", 


"Green", 
"Purple", 
"Orange"} 


Me.cmbColor.Items.AddRange(ArrayColors) 


End Sub 
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Private Sub cmbColor_SelectedIndexChanged(sender As 
Object, e As EventArgs) Handles cmbColor.SelectedIndexChanged 
Select Case cmbColor.SelectedIndex 


. Red 

. Blue 

. Green 
.Purple 


.Orange 


Case EnumColors. Red 
Me.BackColor Color 
Case EnumColors. Blue 
Me.BackColor Color 
Case EnumColors. Green 
Me.BackColor Color 
Case EnumColors. Purple 
Me.BackColor Color 
Case EnumColors.Orange 
Me.BackColor Color 
Select 


End 
End Sub 


End Class 
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معالجيٌ النصوص 51111155 Handling‏ 


توفر لنا لغ الفيجوال بيسك مجموعة من الدوال التي تمكننا من التعامل مع النصوص 
وإجراء مختلف العمليات التي ترغب فيها من تقطيع ودمج وبحث وتصغير وتكبير 
حالات الأحرف وغير ذلك من الدوال المهمدّ التي سنستعرضها بالترتيب مستعرضين لكل 
ذال مالا تطييقيا: 


الحصول على طول النص: 
Len‏ وكذلك الدالة 0| وفيما يلي كيفية استخدامهما: 
Dim Name As String = "khalid"‏ 
MsgBox(Name. Length)‏ 


أو" 
Len (Name) )‏ )عامقع دالا 


في الحالتين معاء سيتم عرض رسالدّ تحتوي على طول السلسلة النصيت وهو 6 أحرف. 
تكيير حالم الأحرف: 


إذا أردنا تكبير حالت الأحرف. فيمكننا عمل ذلك بواسطة الدالت 356) لا وكذلك 
الخاصية 006 [ا0 أ كما يوضح المثال التالي: 
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Dim Name As String = "khalid" 
MsgBox (Name. ToUpper() ) 

1 

MsgBox(UCase(Name) ) 


النتيجة الحاصلة من الدالت 0368ل أو الخاصية 101/006 هي نفس القيمة النصيت 
k10‏ لكن بحالت أحرف كبيرة هكذا ۳۸10 ) كما توضح هذه الرسالت: 


KHALID 





تصغير حال الأحرف 

بمقابل الدالت 0358 التي تقوم بتكبير حالت الأحرف, يوجد لدينا الدالة 358| التي 
تقوم بتصغير حالة الأحرف. وكذلك بمقابل الخاصية 006 ا0 | تتيح لنا لخت الفيجوال 
بيسك الخاصية 0101/6 التي تسمح بتصغير حال الحروف. كما يوضح لنا المثال 
التالي: 


Dim Name As String = "KHALID" 
MsgBox (Name. ToLower() ) 

ا 

MsgBox(LCase(Name) ) 


صل هاج ال العالية شن الخالقين ما 
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khalid 





اجتزاء النصوص 51115111118 
وکوا فة الفيجوال مك والقين الحو غلى جاو مجن موسا تح الدالة 
الأولى هي لأ 1 والدالت 5105۲١9‏ التابعة للفئة 5]11]00, الدالت الأولى 1۵ تنتظر ثلاث 
برامترات كما يلي: 

Mid(string_Name, start_Index, Length) 
البرامتر الأول 31716 ||_5]110 نضع فيه النص الأصلي الذي نريد اجتزاءه.‎ 
البرامتر الثاني ۸06| _53۲ نحدد فيه رتبت أول حرف نريد أن يبدأ منه النص الجديد‎ 
.0 الناتج عن الاجتزاء علما أن رتبت أول حرف في النص الأصلي هي 1 وليست‎ 
البرامتر الثالث [/]6/10.| نضع فيه عدد النص الذي نريد الحصول عليه.‎ 
وهده أنكلة على كيفية اتكداء الدالة 10 امن أجل احتزاء التصوص:‎ 


Dim Name As String = "KHALID" 
Dim strResult1 As String = Mid(Name, 1, 3) 


Dim strResult2 As String = Mid(Name, 2, 4) 
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في المتغير الأول 1]|لا5]1165 قمنا بتخزين القيمة المجتزأة من النص الأصلي (]|11 1/4 
بدء من أول حرف وطول نتيجة النص الجديد هي 3. أي أن النتيجت هي ۸1۸ 
بينما في المتغير الثاني ۲۸66۷2 قمنا بتخزين القيمة المجتزأة من النص الأصلي 
0 بدء من ثاني حرف وطول نتيجة النص الجديد هو 4 أي أن النتيجةّ هي ۸1 1|. 


الدالت الثاني التي تمكننا من تجزئة النص هي 900501170 التابعت للفئت 501100 


String_Name.Substring(start_Index, Length) 


نستبدل الكلمتة 3016 ||_5]1110 باسم النص الذي نريد تقطيعه» ثم نحدد في البرامتر 
510110 بداية التقطيع التي تبدأ من 0 على خلاف الدالة 110 التي تعتبر أن أول 
حرف في السلسلة النصية رتبته 1. بعد ذلك نحدد طول النص المراد الحصول عليه بعد 
عملية الاجتزاءء كما توضح الأمثلت التاليى: 
Dim Name As String = "KHALID"‏ 
Dim strResult1 As String = Name.Substring(@, 3)‏ 


Dim strResult2 As String = Name.Substring(2, 4) 


المتغير الأول سيحتوي على نتيجة النص بعد التقطيع الذي يبدأ من أول حرف ويحسب 
5 ثت حروف معه أي أن 1]|لا65 1 !]5 سيحتوي على ۳۸ ). 
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أما المتغير الثاني فإن قيمته ستكون هي نتيجة3 التقطيع بدءا من الحرف الثالث رلأن 
العد في الدالتّ 900511110 يبدأ من 0) وطول النص لدينا هو 4 وبالتالي سيحتوي المتغير 
strResult2‏ على „ALID‏ 


تقسيم النصوص 51111118 
تمكننا الدالت ]||90 التابعة للفئة 9]1]110 من تقطيع النص إلى مجموعة من العناصر 
وتخزينها في مصفوفة إذ سيتم اعتبار كل جزء من أجزاء النص عنصرا من عناصر 


لصوف الناتتعة: 


في المثال التالي. سنقوم بتخزين مجموعة من الأسماء المفصولة بعلامت شرطة في متغير 
نصيء ثم نقوم بتقطيع هذا النص حسب هذه الشرطة بواسطة الدالت ]|50 ثم نخزن 
القيم الناتجہ في مصفوفم نصيم: 
Dim Names As String = "Khalid-Hamid-Nihad-Hussain”"‏ 
Dim ArrayNames() As String = Names.Split("-")‏ 
MsgBox(ArrayNames(O0)) 'display Khalid‏ 
MsgBox(ArrayNames(1) ) 'display Hamid‏ 


MsgBox(ArrayNames (2)) 'display Nihad 
MsgBox(ArrayNames(3)) 'display Hussain 


كما تلاحظ معي فالدالة ]|50 تستلزم منا تحديد الرمز المراد اعتماده في التقطيع 
وفي حالتنا هذه هو الشرطة.. 
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دمج النصوص 201122166111128) 

تسمح لنا لغدّ الفيجوال بيسك باستخدام مجموعة من الطرق لدمج النصوص, (أينا فيما 
تقدم معنا من فصول أولى أن الرمز لأ والرمز + يستخدمان لدمج القيم النصيت» كما 
يبين لنا المثال التالي: 


Dim First_Name As String = "Khalid" 
Dim Last_Name As String = " 111" 


Dim Ful1Name As String 
FullIName = First_Name + Last_Name 


'Or 
FullIName = First_Name & Last_Name 


المتغير ٩‏ آل۴ في الحالتين معا سيحتوي على نتيجة دمج قيمتي المتغيرين 
First Name‏ و Lat Name‏ أي أن النتیجۃ ستكون: | 0/41 5554/8 Khalid‏ 


توجد لدينا كذلك الدالت 00۸٨8‏ التابعت للفئة 5]1100 التي تقوم بدمج النصين 
المررين لها كما يوضع المقال الثالي: 


Dim First_Name As String = "Khalid" 
Dim Last_Name As String = " 111" 


Dim Ful1lName As String 


FullIName = String.Concat(First_Name, Last_Name) 
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المتغير 306|||ألا"] سيضم قيمتي المتغيرين ©1!5]_|!301 و 35]!/3016] بعد أن تقوم 
الدالت ا3٤0۸‏ بدمجهما. 


يوجد لدينا في لغنّ الفيجوال بيسك, الدالة أ0[ التي تقوم بنفس الدور لكن تتطلب 
منا تحديد رمز الفصل بين النصوص الراد دمجها. وهذا مثال على كيفيى استخدام هذه 
الدالة: 


Dim First_Name As String = "Khalid" 
Dim Last_Name As String = "ESSAADANI”" 


Dim Full1Name As String 


Ful lIName = String.Join(" ", First_Name, Last_Name) 


لاحظ أننا وضعنا في رمز الربط بين القيمتين رمز المساحة الفارغة 503006 لكي يتم 
ترك فراغ بين الاسم والنسب» ويمكننا الاستغناء عن تحديد رمز الربط وترك قيمته 
فارغت كما يمكننا وضع أي نص نريد وضعه كرابط للقيم المراد دمجها وهذا مثال 
أوضح على استخدام الدالت [0١‏ التابعة للفئة 9]11110: 


1 الصبر 1 
فوج 


Dim Expression1 As String 
Dim Expression2 As String 


Dim Expression3 As String = String.Join(" و" مفتاح‎ 
Expression1, ExpressionZ2Z) 
MsgBox(Expression3) 


معد ت الكو اغلام سرف تخل عا اا اة 
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الصبر مقتاح الفرج 





البحث داخل النصوص 01162115) 

نستطيع البحث عن قيمة معينة داخل قيمة نصينّ من خلال الدالة 0031۸5 التي تعيد 
لنا القيمة ۲18 في حال العثور على القيمة المبحوث عنهاء وتعيد لنا القيمة ۴38 في 
حال عدم العثور عليهاء وهذا مثال على كيفية استخدام الدالة 00۸3١5‏ التابعة للفئت 
String‏ 


"إذا فشلت في التخطيط فقد خططت للفشل" = Dim strText As String‏ 
True Then‏ = ("التخطيط" ) If strText.Contains‏ 
( "القيمة المبحوث عنها موجودة" ) ×80 عsءM×‏ 
Else‏ 
( "آسف» القيمة المبحوث عنها غير موجودة" ) ×80 عكM×‏ 
End If‏ 
ستبحث الدالت 00۸31۸5 عن الكلمة "التخطيط' داخل المتغير النصي © [5]1 وتظهر 
لنا الرسالر حسب نتيجة البحث؛ في حالتنا هذه القيمة المعادة للدالت 0۸3۸5 هي ۲۲۷۴ 
ب لميجى الب هي 4 هي 
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يمحكهنا العام قى عا الح عن خض معيق واخل سلا تضية: هن خلال 
الدالت ۸060| التي تعيد لنا رتبت أول حرف من القيمة المبحوث عنها في حال العثور 
عليهاء أما في حال عدم العثورعليها سوف تعيد لنا الدالت 1001| القيمة السلبية1[ . 


فيما يلي مثال يعرض للحالتين معاء الحالة الأولى تم العثور على النص المبحوث عنه. 
والحالة الثانية لم يتم العثور عليه. 
Dim strText As String = "Think First, Code Later"‏ 
If strText.IndexOf("Think") > -1 Then‏ 
MsgBox("Word is Found at Index: " ©‏ 
strText. IndexOf("Think"))‏ 
Else‏ 
MsgBox("Not Found :(")‏ 
End If‏ 
الكلمة 11١۸‏ موجودة داخل قيمت المتغير ]0 [5]1 إذن الدالت "۸060| سوف تعيد 
قيمة مخالفة ل-1.: وبالتالي سيتم عرض الرسالة الأولى التي تفيد أن الكلمة المبحوث 


عنها تم العثور عليها مع تحديد رتبت أول حرف منها. كما تعرض الرسالة التالية: 


Word is Found at Index: 0 
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لأن الكلمة 1١۸‏ هي أول كلمة في السلسلة النصية التي شملتها عملية البحث فتم 


إرجاع الرتبت صفر لأن أول حرف من الكلمة يوجد في هذه الرتب<. 


بينما في الحالةٌ الثاني التي يعرضها الكود التالي فإن الدالت 0001| لن تجد الحلمىن 
المبحوث عنها وسوف تعيد لنا القيمة-1 وبالتالي ستظهر الرسالة التي تفيد أن الكلمت 
المبحوث عنها غير موجودة: 
Dim strText As String = "Think First, Code Later"‏ 
If strText.IndexOf("Manage") = -1 Then‏ 
MsgBox("Not Found :(")‏ 
Else‏ 
MsgBox("Word is Found at Index: " &‏ 
strText. IndexOf("Think"))‏ 
End If‏ 
طبعا لأن الكلمة 30306 || غير موجودة فإن الشرط متحقق لأن الدالة 1001| سوف 


تعيد بالفعل القيم1-3 وبالتالي ظهور الرسالة الآتي<: 


Not Found :) 
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استبدال النصوص 11601306 
أحيانا قد نحتاج إلى استبدال نص معين بنص آخر إذا أردنا عمل ذلك فإن لغنّ الفيجوال 
بيسك توفر لنا الدال 1601306 التي تقوم بهذه العمليد كما يبين المثال الآتي: 

Dim FalseText As String = "الرياض عاصمة العراق"‎ 


Dim TrueText As String = FalseText. 5613©) و"الرياض"‎ 
ıt "بغداد‎ ) 


MsgBox(TrueText) 
المتغير الأول يحتوي على عبارة خاطئت مفادها أن الرياض عاصمة بغداد, وقمنا‎ 
بتصحيح العبارة من خلال الدالة ۸801306 التي مكنتنا من استبدال هديتة الرياض‎ 
بالمدينة الصحيحة التي تعد عاصمة للعراق.‎ 


المتغير ]© آ۲6 سيحتوي على العبارة التالية: بغداد عاصمة العراق. 


إدراج النصوص ]1 1115 
إذا أردنا أن نضيف نصا ما إلى نص آخر مع إمكانية تحديد الرتبة التي نريد إدخال 
النص الجديد فيهاء فإن الدالت ]1156| تفي بالغرض وتسمح لنا بهذه العمليت كما 
يوضح المثال الآتي: 
"أساس الملك" = Dim Expression As String‏ 
Dim FinalExpression As String = Expression.Insert(0,‏ 


(* العدل" 
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MsgBox(FinalExpression) 
المتغير الأول يحتوي على عبارة ناقصت هي: أساس الملك. فقمنا بإضافت الكڪلمت‎ 
الناقصتة في الرتبة 0 وهي الكلمة: العدل, وبالتالي ستصبح قيمة المتغير الثاني‎ 
هي:‎ 11300 


العدل آساس الملك 





مقارني النصوص 0111221) 
قد نحتاج في بعض الأحيان إلى إجراء مقارنات على النصوص من أجا التحقق من أن 
نصين متوافقان أو غير متوافقان» لعمل ذلك توجد عندنا الدالت ©01031) والدالت 
0 ]1031 اللتان تقومان بمقارنة نصين فإن تم إرجاع القيمة0 فهذا يعني أن النصين 
متماثلان. وإن تم إرجاع القيمة1 فهذا يعني أن القيمتين غير متوافقتين. كما يعرض 
لنا المثال التالي الذي استخدمنا فيه الدالتين معا: 
Dim First_String As String = "khalid"‏ 
Dim Second_String As String = "Hussain"‏ 
Dim Result As Integer‏ 
Result = String.Compare(First_String, Second_String)‏ 


If Result = 0 Then 
"النص الأول مماثل للنص الثاني" ) ه8 عك"‎ ( 
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Else 
النص الأول غير ممائل للنص الثاني" ) ×80 ع5"‎ "( 
End If 
0 
Result = First_String.CompareTo(Second_String) 


If Result = 0 Then 

(" النص الأول مماثل للنص الثاني" ) ×80 عك" 
Else‏ 

(" النص الأول غير ممائل للنص الثاني" ) ×8 ع5" 
End If‏ 


Format الدالي‎ 


قبل أن نتطرق لشرح كيفية التحكم في عرض العملات المالية والتواريخ وغيرهم 
ينبغي أن نستعرض أولا الدالت 011135" التي تنتمي إلى الفئة 5|۲١0‏ والتي تسمح لنا 
بالتعامل مع مختلف القيم. بحيث نحدد رتبت كل قيمدٌ وشكل العرض بين 
مزدوجتين ثم بعد ذلك مورد اسم المتغير على شكل برامتر للدالت ۳0۲۳۳۵ كما يبين 
المثال التالي: 

Dim First_Name As String = "Khalid" 

Dim Last_Name As String = "555880111" 

Dim Ful1Name As String 

FullIName = String.Format("My name is: {O0} {1}", 
First_Name, Last_Name) 

MsgBox(Ful1Name )‏ 
لاحظل آختا حددنا ذاخل الدالة ۴0۲۳۸۵ ترقيي المتغيرات وقكل الظيونق حيث تركنا 


فراغا بين الاسم وبين النسب,. عند تنفيذ الكود أعلاه سوف نحصل على هذه النتيجة: 
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My name is: Khalid ESSAADANI 





وهذا مثال آخرللاستئناس بالدال3 ]01113 آ: 


Dim Name As String = "Hamid MAKBOUL™" 
Dim Age As Byte = 25 

Dim Country As String = "Morocco" 
Dim City As String = "Beni Mellal" 


MsgBox(String.Format("Informations About Customer: 
- Name: {0} 
- Age: {1} 
- Country: {2} 
- City: {3}", Name, Age, 
Country, City) ) 


سيتم عرض معلومات الشخص بشكل منسق حسب الترتيب الذي حددناه في الدالت 
0113 إذا قمنا بتنفيذ الكود أعلاه سوف نحصل على الرسالتة التاليت: 


Informations About Customer: 
- Name: Hamid MAKBOUL 
- Age: 25 


- Country: Morocco 
- City: Beni Mellal 
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لتنسيق العمالات وعرضها بالشكل الصحيح» نستخدم الدالت ]01103 ونضع في 
تنسيق القيمة الماليت الرمز © دلالق على أن التنسيق سيكون على شكل عملت 
۷ كما يوضح الكدد التالي: 


Dim Price As Double = 78651.75 
MsgBox(String.Format("The price is: {@0:c}", Price)) 


سيتم تنسيق القيمة العشرية بالشكل المناسب لعرض البالغ الماليت في نظام 
التشغيل» عند تنفيذ الكود أعلاه سوف تحصل على نتيجة مماثلة لما يلي مع اختلاف 
في التنسيق والعملة حسب إعدادات نظام التشغيل عند: 


The price is: $78,651.75 





في المثال التالي سنقوم بنفس العمل. لكن مع استخدام متغيرات أخرى داخل الدالتَ 
:Format‏ 


Dim Name As String = "TV" 

Dim Model As String = "Philips" 

Dim Quantity As Short = 125 

Dim Amount As Double = 1375.25 

MsgBox(String.Format("Product Informations: 
- Name: {0} 
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- Model: {1} 

= QEY 2F, 

- Amount: {3:c}", Name, 
Model, Quantity, Amount) ) 


كل ما قمنا به في المثال أعلاه هو أننا أعلنا عن مجموعة من المتغيرات بما فيها المتغير 
العشري أ ۸01١‏ الذي قمنا بتنسيق طريقة عرضه ليظهر بشكل مالي عند تنفيذ 
Product Informations:‏ 


- Name: TV 
- Model: Philips 


- Qty: 125 
- Amount: $1,375.25 











ويمكننا أيضا التحكم في شكل التنسيق» بحيث يمكننا عرض المبالغ بالشڪل 
الذي نريد. كان نعرض الوحدات والمئات والألوف وغيرهم مفصولين بفاصل آخر بدل 
الفاصل أو أن نقوم بوضع الأصفار في الأرقام الناقصة في كل جزء لتسهل قراءة المبالغ أو 
أن نحدد عدد الأرقام بعد الفاصلة العشرية, إذا أردنا عمل ذلك فما علينا سوى وضع 
التنسيق الذي نريد على شكل رموز# في الدال ]011113 كما يوضح المثال التالي: 


Dim Amount As Double = 45612.658 
MsgBox(String.Format("{O0:HHH #HHE.H#}", Amount) ) 
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في هذا المثال سيتم عرض الألوف مفصولة عن المئات بفراغ وسيتم عرض رقمين فقط 


45 612.66 








يمكننا تغيير شكل التنسيق كنا نحب» مثلا نعرض بدل الفراغ فاصلت ونظهر 
بعد الفاصلكٌ العشرينٌ رقما واحدا فقط: 
Dim Amount As Double = 45612.658‏ 
MsgBox(String.Format("{O0:HHH,H#HHE.#}", Amount) )‏ 


هذه المرة ستكون النتيجدرّ همكذا: 


45,62.7 











إذا أحببنا أن نستعيض باصفار عن الأماكن الناقصت في الأعداد والتي ليس لها تأثير 
حسابي لكنها تسهل عملي قراءة الأعداد يجب أن نضع بدل الرمز# القيمة 0 كما 
يوضح المثال التالي: 
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Dim Amount As Double - 5 
MsgBox(String. Format (" {0:000 000.00}", Amount) ) 


ستكون النتيجدٌ كما يلي: 


045 0 








تنسيق التاريخ والوقت 

بنفس الصيغة التي رأيناها في تنسيق العملات بواسطة الدالت ]011113 ]| يمكننا تنسيق 
القيم التاريخيت لكن عبر تحديد شكل التنسيق بما يتلاءم مع طبيعة التاريخ 
والوقت الذي نود عرضه. افتراضيا نقوم بوضع الحرف 0 دلالت على 038 من أجب تنسيق 
القيمدٌ على شكل تاريح. 

في الفيجوال بيسك يوجد لدينا الخاصية [)/101! التي تقوم بإرجاع التاريخ والوقت 
الحاليين في نظام التشغيلء وهي القيمة التي سنقوم بالعمل على تنسيقها في المثال 
التالي: 


Dim CurrentDate As Date = Now 
MsgBox(String.Format("{0:d}", CurrentDate) ) 
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في المثال فوقه, قمنا بالإعلان عن متغير اسمه 10۲۲8١038‏ يستقبل قيمة الخاصيت 
ا ويعد ذلك قمنا بعرض قيمته في رسالنّ بواسطة الدالت ۴0۲۳۳٩١‏ وحددنا في 
شكل التنسيق الرمزل للإشارة أن القيمة تاريخية, عند تنفيذ الطود سنحصل على 
النتيجة التاليت: 


2225 





يمكننا التحكم في تنسيق التاريخ بالشكل الذي نريد. بحيث يمكننا تغيير 

ترتيب الأيام والأشهر والسنوات والساعات والدقائق والثواني. سنورد في المثال التالي 

مجموعئٌ من التنسيقات وبعدها سنفرد صورة لنتيجدٌ كل تنسيق لكي نفهم معناه: 
Dim CurrentDate As Date = Now‏ 


عرض التاريخ كاملا' 
MsgBox(String.Format("{0:d}", CurrentDate) )‏ 


عرض اليوم والشهر فقط' 
MsgBox(String.Format("{0:dd/MM}", CurrentDate))‏ 


عرض اليوم فقط' 
MsgBox(String.Format("{0:dd}", CurrentDate) )‏ 


عرض | لشهر وا دز ك 0 وط" 
MsgBox(String. Format ("{0:MM/yyyy}", CurrentDate) )‏ 
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عرض السنة فقط' 
MsgBox(String.Format("{O0:yyyy}", CurrentDate) )‏ 


عرض الوم أولاء الشهير كاتهاء ثم التسنة' 
MsgBox(String.Format("{O0:yyyy/MM/dd}", CurrentDate) )‏ 


هرمع التازريخ واتوقث كاسدين' 
MsgBox(String.Format("{O0:ss:mm:hh - yyyy/MM/dd}",»‏ 
CurrentDate) )‏ 


عرض الثواني فقط' 
MsgBox(String.Format("{0:ss}", CurrentDate) )‏ 


عرض الدقائق فقط" 
MsgBox(String.Format("{O0:mm}", CurrentDate) )‏ 


عرض الساعات فقط' 
MsgBox(String.Format("{O0:hh}", CurrentDate) )‏ 


قزق انلوقت كامة؟' 
MsgBox(String.Format("{0:ss:mm:hh}", CurrentDate) )‏ 


عرض الدقائق و الساعات' 
MsgBox(String.Format("{O0:mm:hh}", CurrentDate))‏ 


الأمرالتالي: 


عرض التاريخ كاملا' 
MsgBox(String.Format("{0:d}", CurrentDate) )‏ 
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22015 





الأمرالتالي: 


عرض اليوم والشهر فقط' 
MsgBox(String.Format("{0:dd/MM}", CurrentDate) )‏ 





عرض اليوم فقط' 
MsgBox(String.Format("{O0:dd}", CurrentDate) )‏ 
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الأمرالتالي: 


عرض الشهر والسنة فقط' 
MsgBox(String.Format("{0:MM/yyyy}", CurrentDate) )‏ 


01/2015 





الأمرالتالي: 


عرض السنة فقط' 
MsgBox(String.Format("{O0:yyyy}", CurrentDate) )‏ 





الأمرالتالي: 


عرض اليوم أولاء الشهر ثانياء ثم السنة' 
MsgBox(String.Format("{O0:yyyy/MM/dd}", CurrentDate) )‏ 


هو هه 
3 پد ٠١4‏ 
. 


٠ هه‎ 


أكاديمية المبرمجين العرب | 119 


2015/01/29 





الأمرالتالي: 


غرم التتازيخ والوقة كاملن' 
MsgBox(String.Format("{0:ss:mm:hh - yyyy/MM/dd}",‏ 
CurrentDate) )‏ 


25:01:04 - 9 





SE عرض التو ايى‎ 
MsgBox(String.Format("{0:ss}", CurrentDate) ) 
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عرض الدقائق فقط' 
MsgBox(String.Format("{O0:mm}", CurrentDate) )‏ 





عرض الساعات فقط' 
MsgBox(String.Format("{O0:hh}", CurrentDate) )‏ 
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الأمرالتالي: 


قرفن الحواقتت اما" 
MsgBox(String.Format("{0:ss:mm:hh}", CurrentDate) )‏ 





اعرالا 


قزق الد انق و السا غنات ' 
MsgBox(String.Format("{O0:mm:hh}", CurrentDate))‏ 
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Functions and Procedures الدوال والاجراءات‎ 


الدوال والإجراءات من المفاهيم البرمجية الأساسية المهمة والتي تمثل مجموعة من الأوامر 
البرمجية التي تؤدي عملا معيناء بحيث تكون هذه الأوامر مجمعة تحت اسم ما. وعند 
استدغا هذا الاسم نكم تفي الأزامر التكبوية داغلة والقركى من استخدام الدوال 
والإجراءات هو منع تكرار الأوامر في المشاريع البرمجيد. مثلا لو عندي أوامر برمجيت 
تؤدي عملا ما وساحتاج إلى تكرارها في أماكن عديدة من البرنامج أقوم بتجميعها 
داخل إجراء ۴۲0۳801۲۴ أو دالت (0170]101ا] حسب العمل الذي تؤديه هذه الأوام ثم نقوم 


بالنداء على اسم الدالة أو الإجراء في كل مكان نحتاج فيه إلى تنفيذ هذه الأوامر. 


الإجراءات هي مجموعة من الأوامر التي تؤدي عملا ما دون أن ترجع لنا قيمت كنتيجت 
افد هذه الأوامن وصيعة إنشام الإ جرت فى اله التبجوال بيك تكون ير 
الكلمة المحجوزة 0لا ثم نورد اسم الإجراء ونضع بين القوسين البرامترات التي يحتاجها 
الإجراء كما يلي: 


Sub Procedure_Name(ByVal 23231 As Data_Type, ByRef 

Param2 As Data,....) 
'do that 

End Sub 
البرامترات هي متغيرات تنتظرها الإجراءات والدوال من أجل استخدامها للحصول على‎ 
نتيج3 معينة» ويكون الإعلان عن البرامترات بين قوسي الإجراء أو الدالت مع تحديد نوع‎ 
أو بالمرجع 8۸€ وسنوضح الفرق‎ 8J بيانات كل برامتر وطريقة الحجز إما بالقيمة أ3‎ 

بين الطريقتين فيما بعد إن شاء الله. 
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بعد تحديد اسم الإجراء والبرامترات التي سيحتاجها رإذا لم يكن الإجراء في حاجة إلى 
برامترات نترك القوسين فارغين) نقوم بكتابة الأوامر التي على الإجراء تنفيذها عند 
في المثال التالي سوف نتعرف على كيفية إنشاء إجراء يقوم بحساب استقبال اسم 
المستخدم وعرضه في رسالة. 

قم بإنشاء مشروع جديد من نوع ۸00۲310۸ ۴0۲۳۶ 1000۷5 ثم ضع على الفورم 
الأدوات التاليت: 


xX 


كنا 











رجاء أدخل اسمك هتا: عرض الرسالة 





Ibl1Name Label‏ من أجل عرض النص 

TextBox‏ ظ txtName‏ من أجل إدخال الاسم 
ظ Button‏ ظ btnShow‏ | من أجل عرض الرسالة الترحيبية 
بعد ذلك ادخل إلى الكود وقم بإنشاء الإجراء التالي أسفل الجزء 507711 01355 © أأأ/ا0 
ڪما يلي: 


Sub ShowMessage (ByVal Name As String) 
MsgBox(String. CON Cat ) " و" السلام عليكم ورحمة الله وبركاته سيد:‎ 
Name) ) 
End Sub 
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الإجراء يحمل الاسم 655306 50۷ ويستقبل البرامتر النصي 3016| بعد ذلك يقوم 
الإجراء بعرض رسالة ترحيبية تدمج بين عبارة: السلام عليكم ورحمة الله وبركاته 
سيد والاسم الممرفي البرامتر. 

لاستدعاء هذا الإجراء ناتي إلى المكان الذي نريد تنفيذه فيه وهو الحدث )٤ا01‏ الخاص 
بالزر 0150۷ ثم نكتب اسم الإجراء ونفتح القوس فيطلب منا كتابة قيمة نصيت 


كما يلي: 


WindowsApplication1 Form1.vb [Design]* 





LE] WindowsApplication1 - | ©, btnShow - % Click 
2Public Class Form1 
Sub ShowMessage (ByVal Name As String) 
MsgBox(String.Concat("دım .و" :السلام عليكم ورحمة الله ويركاته‎ Name(( 
End Sub 


Private Sub btnShow_ Click(sender As Object, e As EventArgs) Handles btnShow. CI 


سنضع في البرامتر النصي الذي ينتظره الإجراء 655306 500 القيمة النصية المدخلة 
في مربع النص 8[ كما يلي: 


Private Sub btnShow_Click(sender As Object, e As 
EventArgs) Handles btnShow.Click 


ShowMessage (txtName. Text) 


End Sub 


الآن سيتم استبدال البرامتر 38| الذي ينتظره الإجراء 655306 90 بالقيمة النصية 


الى سين جاه الستخدم تى مو انض وميك هركن هذه التي الصا مدموح 
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برسالجّ الترحيب, وبالتالي عند تنفيذ الكود والنقر على الزر 05۸0۷ سيتم عرض 
الرسالة بالشكل الذي حددناهفي الإجراء كما يلي: 



































0 A F 5 © Quick Launch (Ctrl+Q) Amn E # 
File Edit View Project Build Debug Team Tools Test Architecture LoadTest Analyze Window Help Khalid ESSAADANI > 
كلا ار لل - 252 2 إل ها 5 و‎ Code Map #6 2 
WindowsApplication1 ل‎ EDE Form1.vb (Design) a > Solution Explorer 0 
v8] WindowsApplication1 - “$Form1 - © ShowMessage 2185-5 3 سام < هوه‎ 
5 55 
aPublic Class 1 3 | Search Solution Explorer (Ctrl+S 2- 
Sub ShowMessage(ByVal Name As String) | WindowsApplication1 
MsgBox(String.Concat("دııص السلام عليكم ورحمة الله ويركاته‎ : ", Name)()( بكر‎ My Project 
End Sub سم ام‎ References 
¢3 App.config 
1 1 1 م‎ 5 Forml.vb 
Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Cl 
ShowMessage (txtName. Text) 
End Sub 
End Class 
الدوال والإجراءات الا‎ a 
رجاء أدخل اسمك هتا: | قهد فياض عرض الرسالة‎ 
Properties - 4 * 
م |4 ده‎ 
السلام عليكم ورحمة الله وبركاته سيد: فهد قياض‎ 
9896 >4 OK 8 
fx 





Immediate Window 


وتا الكود كاملة: 


Public Class 61 
Sub ShowMessage (ByVal Name As String) 
MsgBox(String. Conca (" و" السلام عليكم ورحمة الله وبركاته سيد:‎ 
Name) ) 
End Sub 


Private Sub btnShow_Click(sender As Object, e As 
EventArgs) Handles btnShow.Click 
ShowMessage (txtName. Text) 
End Sub 
End Class 
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الدوال ۴1۷۲10۸5 شبيهة جدا بمفهوم الإجراءات إلا أنها تتميزعن هذه الأخيرة في كونها 
تسمح لنا بالحصول على النتيجة التي يؤديها تنفيذ أوامر الدالد ويكون الإعلان عن 
الدالت بالكلمة 0101لا مع تحديد نوع القيمة التي نود إرجاعها بعد تنفيذ الأوام 


كما سترق ف الخال العالن الذي يعقوم اعيات الحسابية 


قم بإنشاء مشروع من نوع 40011031010 01175 1٣00۷5‏ وضع على الفورم الأدوات 


التالية: 


أدخل الرقم الأول: 


أدخل الرقم الثاتى: 


اختر العملية الحسابية: 








كج سروس EO‏ 


TextBox 
TextBox 
RadiButton 
RadiButton 
RadiButton 








IbINumber1 
IbINumber2 
Ibl]Choose 


txtNumber1l 
txtNumber2 
rbAdd 
rbSubs 
rbMul 


من أجل عرض النص الخاص بالرقم الأول 
من أجل عرض النص الخاص بالرقم الثاني 
من أجل عرض النص الخاص باختيار 
العملية الحسابية 

من أجل إدخال الرقم الأول 

من أجل إدخال الرقم الثاني 

من أجل اختيار عملية الجمع 

من أجل اختيار عملية الطرح 

من أجل اختيار عملية الجداء 
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ظ RadiButton‏ ظ rbDiv‏ ظ من أجل اختيار عملية القيمة | 
ظ Button‏ ظ btnCalculate‏ | من أجل تنفيذ عملية الحساب ظ 


بعد أن تقوم بتصميم الفورم وتغيير أسماء الأدوات وتعديل خصائصهاء قم بالولوج إلى 
عرز الكو واتشيع الدالة القالية الق تقوم ساب العددين الدكلين ناء غلن قوع 
العملية اااي ق اخ اوه واترعع ا النشبجةالحاضل كما لى 


Function Calculate(ByVal Number1 As Double, ByVal Number2 
As Double) As Double 


Dim Result As Double 
If rbAdd.Checked = True Then 
Result = Number1 + Number2 
ElseIf rbSubs.Checked = True 
Result = Number1 - Number2 
ElseIf rbMul.Checked = True 
Result = Number1 * Number2 
Elself rbDiv.Checked = True 
Result = Number1 / Number2 
End If 
Return Result 
End Function 
وقمنا‎ ۴١)0١ قمنا بالإعلان عن الدالت 013]6ا3160) من خلال اللكلمة المحجوزة‎ 
بتحديد النوع الذي سوف تكون عليه نتيجة الدالدّ وهو 0010016 وقبل ذلك حددنا‎ 
البرامترات التي ستحتاجها الدالت من أجل إجراء الأوامرالتي تؤدي إلى الحصول على النتيجت‎ 
المتوخاة.‎ 
بعد ذلك قمنا داخل الدالت بالإعلان عن المتغير ]|لا5©! من نوع عشري 0010016 الذي‎ 
ياخذ قيمته بناء على نوع العملية الذي يتم اختياره فإن تم احتيار الجمع كانت‎ 
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قيمته هي مجموع المتغيرين 11106/1لا|| و 0012| وهكذا دواليك مع باقي العمليات 
الحسابية 


في آخر المطاف نقوم بإرجاع القيمةاألا۸66 التي ستجتوي على نتيحة العملية الحسابية 
ال ته يدها ةا و كى ادا كما دا خا زع مجال الدالة: 


الآن سوف نأتي إلى الحدث ))0 الخاص بالزر 0703101138 ونكتب أمر استدعاء الدالت 
86 مع تمرير قيم البرامترات 06۲1| و 1062| اللذين سيأخذان القيم 
بدورهما من المربعين النصيين اللذين وضعناهما على الفورم: 


Private Sub btnCalcul_Click(sender As Object, e As 
EventArgs) Handles btnCalcul.Click 


Dim N1, N2, Result As Double 


Val (txtNumber1. Text) 
Val(txtNumber2. Text) 


N1 
N2 


Result = Calculate(N1, N2) 


MsgBox(String.Format("The Result 15: {0}", Result)) 
End Sub 


لاحظ أننا أعلنا عن ثلاثة متغيرات عشريت الأول 1| سيستقبل القيمة المدخلة في 
مريع النص 1006۲1 لأ بعد أن يحولها إلى قيمة رقمية, والمتغير الثاني 2| خاص ب 
7ل ل والمتغير الثالث أألا۸66 سيحتوي على النتيجة الحسابية التي ترجعها الدالت 
.Calcuate‏ 
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ثم بعد ذلك أظهرنا النتيجة الحاصلة في رسالت. ويمكننا اختزال الأوامر أعلاه كاملة 


Private Sub btnCalcul_Click(sender As Object, © As 
EventArgs) Handles btnCalcul.Click 


MsgBox(String.Format("The Result Is: {0}", 
Calculate(Val(txtNumber1. Text), Val(txtNumber2.Text)))) 


End Sub 


58 الدوال والإجراءات ج اڪ 


أدخل الرقم الأول: | 30 
أدخل الرقم الثاتى: | 6 
اختر العملية الحسابية: 
©) الجمع 
e‏ الطرح 6 The Result ls:‏ 
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8 الدوال والإجراءات - EN¬=‏ 


أدخل الرقم الأول: |30 








أدخل الرقم الثانى: | 6 
اختر العملية الحسابية: 
0 الجمع 
(©) الطرح 
0 الجداء 


() القسمة 


The Result ls: 24 


عرض التتيجة 


نتيجت الجداء: 


18 الدوال والإجردات _ - - ك8 


أدخل الرقم الأول: | 30 








أدخل الرقم الثاتى: | 6 
اختر العملية الحسابية: 
0 الجمع 
0 الطرح 
© الجداء 


0 القسمة 


چڪ ا اس 


The Result ls: 180 


#۴ الدوال والإجردات _ - EN¬=‏ 


أدخل الرقم الأول: | 30 


o 


أدخل الرقم الثاتى: 








اختر العملية الحسابية: 
0 الجمع 
0 الطرح 
0 الجداء 


© القسمة 


The Result ls: 5 


عرض التتيجة 
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تمريرالبرامترات 


ذكرنا أثناء حديثنا عن الدوال والإجراءات أنه يمكننا تمرير البرامترات من خلال 
القيمة أ3 8(۷ ومن خلال المرجع ۸€( والآن بحول الله سوف نتعرف على الفرق بين 
الضيفقين. 

عند تسريربرامتر يالقيمة 1/3106 8۷ قان قيمة هذا البرامتر تتفي داخل الذالة فقط؛: 
وقيمة المتغير الأصلي الذي نضعه مكان البرامترات عند الاستدعاء لا تتغیں لأن الدالت 
أو الإجراء يقوم بأخذ نسخة ل000 من قيمة المتغير الخارجي ويضعها مكان البرامتر 
دون أن يمس القيمة الأصلية للمتغير. 


بينما تمرير القيمدّ بالمرجع ©856]6670 ل8 يقوم بإلغاء القيمة الأصلية للمتغير 


الخارسى ويس شبد لها بالقيسة الناقعة عن أؤامر التهراء أو الدالة. 


لكي نفهم الاختلاف بين تمرير البرامترات بالقيمة وبين تمرير البرامترات بالمرجع 
بشكل أوضح. سنقوم بإنشاء نفس الإجراء لكن في كل مرة سنغير طريقة التمرير 
لنقارن النتائج ومن ثم نستنبط الفروق. 

ادخل إلى محرر الكود وأنشئ الإجراء التالي الذي يمرر قيمة البرامتر |10۴٣‏ بالقيمت 
ويحسب جداءها في 2 ويعرض النتيجة في رسالت: 


Sub CalcByVal(ByVal Number As Integer) 
Number *= 2 
"5 :بالقيمة")لام8ع‎ " & Number) 

End Sub 
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لو مررنا للبرامتر |١00‏ القيمة 25 سيتم ضربها في 2 وتظهر النتيجة 50 في رسالة. 


الآن قم بإنشاء نفس الإجراء باسم مختلف لكن هذه المرة نوع التمرير سيكون بالمرجع 
Reerenece‏ إل كما يلي: 


Sub CalcByRef(ByRef Number As Integer) 
Number *= 2 
MsgBox("z><ylly: " & Number) 
End Sub 
الإجراء أعلاه يؤدي نفس النتيجة التي يؤديها الإجراء الأول. لكن تعال بنا نختبرهما‎ 


معا لنخلص إلى الفرق الجوهري بين القيمة وبين المرجع. 


امكل إلى أي مكان كريد تتفي الأغراءين فيه ولبكن مغلا الحدة )) اا6 لزرها 


واكتب الكدد التالي: 
Dim Number As Integer = 16‏ 


قيمة المتغير قبل النداء ' 
Number)‏ & " :قبل النداء" )»امقّع دالا 


قيمة المتغير آنا النداء على إجراء يمرر بالقيمة ' 
CalcByVal (Number)‏ 


قيمة المتغير بعد النداء على اجراء يمرر بالقيمة' 
(٣eمNumb‏ & " القيمة بعد النداء على إجراء يمرر بالقيمة" ) ×80 ع "Ns‏ 


قيمة المتغير أثناء النداء على إجراء يمرر بالمرجع ' 
CalcByRef (Number)‏ 


قيمة المتغير بعد النداء على إجراء يمرر بالمرجع ' 
Number)‏ & " :بالمرجع يمرر إجراء على النداء بعد" ) ×80 عMs‏ 
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الآن سنقوم بشرح الكود أعلاه سطرا سطرا لنفهم مالذي يجري. 


السطرالأول: 
Dim Number As Integer = 16‏ 
في هذا السطر أعلئا عن متغير رقمي umber‏ \ قيمته البدئية هي 16ء بمعنى أنه تم 


حجزخانة في الذاكرة ووضعت فيها القيمة الرقمية 10. 
السطرالثاني: 


قيمة المتغير قبل النداء ' 
Number)‏ & " :قبل النداء" ( MsgBox‏ 


هنا قمنا بعرض قيمة المتغير قبل أن نستخدمها في أي إجراء أي أن النتيجة يتكون 


هي 16. 
السطرالثالث: 


قيمة المتغير أثناء النداء على إجراء يمرر بالقيمة ' 
CalcByVal (Number)‏ 


هنا قمنا باستدعاء الإجراء أ3 0308۷ الذي سياخذ نسختة من قيمة المتغير 0€ |١‏ 
وهي 10 وسيدخلها في العملية الحسابية الجدائية دون أن يمس قيمتة المتغير الأصليت 
يعني أن قيمت المتغير |000١‏ ستبقى 16 بينما داخل الدالة ستصبح هي 2 * 16 أي 
3 
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السطرالرابع: 


قيمة المتغير بعد النداء على إجراء يمرر بالقيمة' 
Number (‏ & " القيمة بعد النداء على إجراء يمرر بالقيمة" ) ×80 ع ك" 


في هذا السطر ستظهر 10 لأن قيمة المتغير الأصلية لم تتغير لأن الإجراء السابق استقبل 
قام بالتمرير بالقيمة أي أنه أخذ نسخة فقط واستخدمها في العملية الحسابية دون أن 


مس دی لوالاب بے أن السا سعفاي 10 


قيمة المتغير أثناء النداء على إجراء يمرر بالمرجع ' 
CalcByRef (Number)‏ 


الآن قمنا باستدعاء الإجراء الذي يمرر القيمة بالمرجع» وبالتالي سيتم إلغاء قيمة المتغير 
۳ وسيتم استبدالها بالقيمت الجديدة الناتجت عن الإجراءء أي أن الإجراء 
BYR‏ سيظهر القيمة 2 * 16 أي 32 وسيتم إلغاء القيمة 16 من المتغير 10٩1‏ || 
وسيكه استبدالهاب 32. 
اللسطرالسادس: 

قيمة المتغير بعد النداء على إجراء يمرر بالمرجع ' 


Number)‏ & " :بالمرجع يمرر إجراء على النداء بعد" )»“امقّع دالا 


ستظهر الرسالة أعلاه القيمة 32 لأن التمرير قبل هذه الرسالتة كان بالمرجع وبالتالي 
سيتم إلغاء القيمة الأصلية 10 واستبدالها ب 32. 


فيما يلي النتائج الظاهرة عند تنفيذ الكود أعلاه بالترتيب: 
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قبل النداء: 16 





قيمة المتغير بعد الخروج من الإجراء: 


بعد النداء على إجراء يمرر بالقيمة: 16 
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قيمتة المتغير عند التمرير بالمرجع 16/6/6706 8¥: 





قيمة المتغير بعد الخروج من الإجراء: 


بعد النداء على إجراء يمرر بالمرجع: 32 
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:Exceptions Handling معالجٌ الاستثناءات‎ 


الاستثناءات هي أخطاء تحدث عند اشتغال البرنامج أي في مرحلة التنفيذ 101111076 
ويكون ذلك لأسباب عديدة:؛ من بينها إدخال قيمت غير مناسبت. ڪمحاولت تخزين 
قيمدّ نصيدّ في متغير رقمي. أو محاولة القيام بعملية القسمتّ على صفر أو محاولت 


حذف ملف غير موجود أساساء وغير ذ لك... 


لكي تشمرق عللى يعض الانتخداءات لمكن حدوقياء قم وإتشاء مشروع جديد من 
نوع 00110311017 011175" 1001/5 | وضع على الفورم الأدوات التاليت: 








رجاء قمر بإدخال عمرك: 





لطر سس لكر 


IblA ge Label‏ من أجل عرض النص الخاص بالسن 
txtAge TextBox‏ من أجل إدخال السن 
btnShow Button‏ من أجل حساب ضعف السن 





البرنامج أعلاه يطلب من المستخدم أن يدخل عمره ثم يقوم بعرض ضعق العمر(العمر* 
2: والمفروض أن يكون العمر على شكل قيمة رقمية. أي أن الكود الخاص بالزر 
۷ ينبغي أن يكون على الشكل التالي: 
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Private Sub btnShow_Click(sender As Object, e As 
EventArgs) Handles btnShow.Click 


Dim Age As Integer = txtAge. Text 


Age * 2(‏ & " :ضعف سنك هو" )عام8ع وال 


End Sub 


الآن لو نفذنا البرنامج وأدخلنا قيمت رقمية في العمر سيتم حسابها على أحسن وجه 


لكو مالو قادال ق تح 


اللتغير ۸08 يتنظر قيمة رقمية, فإن نحن أسندنا إليه قيمة نصية سيحصل استثناء في 


البرنامج مفاده أن القيمة غير صحيحة 0356 171/310 كما توضح الصورة الآتية التي 


تن كتاصضييل الاتفداء الساضيل: 


© Quick Launch (Ctrl+Q PE 


Build Debug Team Tools Test Architecture Load Test Analyze Window Help Khalid ESSAADANI > 


CodeMap 17565 ,‏ يلا جه 2 رر ي2 ئ .6 ه > Continue‏ ض 5 


Project 


فل عاك 


View 


Edit 


>d 


File 


| *ا ه 5 طيداصممع‎ | Form1.vb [Design] ã Solution Explorer Fx 


- | م‎ btnShow - % dick 








حابر © 819 ث 5 - 5 هم 
- مم lorer (Ctrl+$)‏ 
TE] Exceptions Handling‏ 
My Project‏ $ 
References‏ سم ام 5 
Aoo.confia‏ "¢ 
InvalidCastException was unhandled x‏ ل 





مغن 















Exceptions Handling 
aPublic Class Form1 + 


Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.C1 


Dim Age 


Age * 2(‏ 8 " :ضعف ستك و" MsgBox)‏ 


An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft. VisualBasic.dll 
Additional information: Conversion from string "النص الذي أدخلته"‎ to type 'Integer' is not valid. 


Troubleshooting tips: 

Make sure the source type Is convertible to the destination type. م‎ 
When casting from a number, the value must be a number less than infinity. 

Get general help for this exception 

InnerException: When converting a string to DateTime, parse the string to take the date before putting each variable into the DateTime object 


InnerException: Make sure your method arguments are in the right format. 


Search for more Help Online... 


Exception settings: 








Break when this exception type is thrown 


Actions: 

View Detail... 

type بوم بوم عدم ممما .مع ديرد‎ ucuu, COPY ception detail to the clipboard 
type 'System.InvalidCastException' occur 
type 'System.InvalidCastException' occut 
type 'System.InvalidCastException' occurred in Microsoft .VisualBasic.d11 
type 'System.IndexOutOFRangeException' occurred in Exceptions Handling.exe 
type 'System.InvalidCastException' occurred in Microsoft .VisualBasic.d11 
type 'System.InvalidCastException' occurred in Microsoft .VisualBasic.d11 


Open exception settings 


ur 
of 
of 
of 
of 
of 
of 


nd Sub 


E 





End Class 


exception 
exception 
exception 
exception 
exception 
exception 


4 


لنت 





98 96 - 


Immediate Window 
A TISL CHANCE انال الوص اك‎ 


chance 
chance 
chance 
chance 
chance 
chance 


first 
first 
first 
first 
first 
first 


A 


اج جر« دا 
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رسالة الخطأ تفيد بأن استثناء من نوع 270601101 035 |١۷١0‏ قد حصلء أي أن القيمت 
المسندة للمتغير لا تتوافق مع نوع بياناته. 

وأنت تبرمج ستقع في مثل هاته المشاكل باستمرار. لذلك يتوجب عليك معالجنها 
لكي يبقى برنامجك شغالا دون أن تتسبب مثل هاته الاستثناءات في إيقافه. 


معالجيٌ الاستثناءات المنظمي Structured Exception Handling‏ 
لتفادي حدوث هذه الاستثناءات وغيرهاء توف رلنا لغ الفيجوال بيسك بعض آليات إدارة 


الاستثناءات أبرزها البنية |۴1۸۵ ...030 ...1۲ وصيغتها كما يلي: 


Try 
الكود المراد معالجته'‎ 
Catch ex As Exception 
استثناء في الكود سينفذ هذا الجزء”‎ 
Finally 
هذا الجزء سينفذ في جميع الحالات سواء حصل استثناء أم لم يحصل'‎ 
End Try 


نضع بعد الكلمة ۲ الكود الذي نريد التحقق من سلامته وخلوه من الاستثناءات 
والمشاكل: فإذا حضل خط ما سيم الانتقال إلى الجن الوجود يعد الكلمة 31001 ) 
ليتم تنفيذه, غالبا في هذا الجوء نعرض رسالة خط لتنبيه المستخدم إلى الشكل 
الحاضيل: 


أكاديمية المبرمجين العرب | 140 


أما الجزء /[||113] وهو أمر اختياري لسنا ملزمين بكتابته: فنضع بعده الكود الذي 
المثال لو الكود يقوم بالاتصال بقاعدة بيانات فعلينا قطع الاتصال معها في نهايت 


الكود أي أن قطع الاتصال ينبغي أن يتم في جميع الحالات. 


لكي نفهم الآليت 0301 ...1۲ بشكل أوضح. نعود إلى نفس المثال السابق الخاص 


بإدخال العم سنضع الكود الذي يتسبب في الاستثناء بعد ١۲۷‏ ثم في 3]1.) نضع ما 


نود القيام به: 
Try‏ 
Dim Age As Integer = txtAge. Text‏ 
Age * 2(‏ 8 " :ضعف سنك هو" ) ×80 Msg‏ 
Catch ex As Exception‏ 
("رجاء لقد حصل خطأ في البرنامج" ) ×80 ع5× 
txtAge.Clear()‏ 
txtAge.Focus()‏ 
Finally‏ 
( "هذا الجزء سينفذ في جميع الحالات" )“امقع وال 
End Try‏ 
الآن تعال بنا نفصل الكود جزء بجزء: 


Try 
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Dim Age As Integer = txtAge. Text 

Age * 2(‏ & " :ضعف سنك هو" )عامقع وال 
في هذا الجزء وضعنا الكود الذي نود التحقق من سلامته ومن خلوه من الاستثناءات, فإن 

حصل خط يتم الانتقال إلى الجزء التالي: 
Catch ex As Exception‏ 

("رجاء لقد حصل خطأ في البرنامج" ) ×80 ع5× 

txtAge.Clear() 

txtAge.Focus() 
في هذا الجزء تم الإعلان عن متغير © منو نوع 270601101 أي النوع الأصلي لكل‎ 
الاستثناءات ويمكننا التخصيص وتحديد نوع الاستثناء إن كنا نعلمه أو نتركه‎ 
هكذا إن كنا نجهله. بالنسبةٌ لنوع الاستثناء المناسب في هذه الحاليٌ فهو‎ 
بدل (27060]100, بعد ذلك قمنا بعرض رسالت خطاء. وقمنا‎ |3100 


بتفريغ مربع النص الخاص بإدخال السن ووضعنا المؤشرفيه من خلال الإجراء 001/5 ]. 
بعدها مباشرة انتقلنا إلى الجزء الآتي: 


Finally 
"هذا الجزء سينفذ في جميع الحالات" ) ×80 عك"‎ ( 
End Try 
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الآن لو نفذنا البرنامج وأدخلنا قيمت غير صحيحة مكان العمر, فلن يتوقف البرنامج بل 
سيعرض لنا رسالت الخطأ التاليت: 


رجاء لقد حصل خطأ قي البرنامج 





يمتنا كتابة العديد.من:3]01.) حسب توع الاستضاء الذي هود أن تعالجة: وسيته 


قف الجن التاسب فى الوقت التاسب 
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معالجثة الاستثناءات غير المنظمي :Unstructured Exception Handling‏ 
يمكننا استخدام هذا النوع من الآليات أيضا من أجل معالجة الاستثناءات, وصيغتها 
تكون باستخدام الكلمة 1101 1 () كما توضح الأمثلة التالية: 


عقن الحخظا اذجت إل الأبد" 
On Error GoTo Label‏ 


سيتم تنفيذ هذا الجزء عند الخطأ' :1عطLabا‏ 


فة الخطا ققخ يتهاوزه' 
On Error Resume Next‏ 


الآلية الأول الى تكب بالغبكل انال 


عة الفا ا عت اك لاف 
On Error GoTo Label‏ 


تعني أنه عند حدوث خط ما اذهب إلى الكود الذي يسبقه الاسم 1306 وقم بتنفيذه. 
مثلا لو طبقنا هذه الآلية على نفس المثال الذي نشتغل عليه والذي يقوم بحساب 
ضعف العمر., فإن الكود سيكتب بالشكل التالي: 
On Error GoTo ErrorMessage‏ 
Dim Age As Integer = txtAge. Text‏ 
Age * 2(‏ & " :ضعف سنك هو" ))امقع وال 
ErrorMessage:‏ 


("البرنامج في خطأ حصل لقد رجاء" ) ×80 ع Ms‏ 
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معنى هذا الكود هو: إذا وقع خط 1101 0۸ في الكود فاذهب إلى المنطقة التي اسمها 
©6530 ۴0۲ وقم بتنفيذها. 


عند تنفيذ هذا البرنامج سيتم عرض الرسالة التالية في حال حصول خطا: 


رجاء لقد حصل خطأ قي البرنامج 





بالنسبة للكلمة 6110111665308 فم كتا اسسداليا ياية كلمة تيد وتسم 
برمجیا ب 8306| 6010 وذوزها هو تحديد مكان لكود معان من أجل الانتقال اليه 
عند استخدام الأمر0 [60. 
يوجد كذلك الآلیت 8 || ۸65۷۳8 1101 0۸ والتي تعني أن على البرنامج أن يتجاوز 
مكان الخطأ في حال حدوثه. كما يعرض معنا المثال التالي: 

On Error Resume Next 


Dim Age As Integer = txtAge. Text 


Age * 2(‏ 8 " :ضعف سنك هو ")×80 ع وال 


أثناء حصول خط في الكود أعلاه سيتم التغاضي عنه والانتقال إلى ما بعده لتنفيذه 
دون أن يتوقف البرنامج في مكان الخطا. 
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إذا نفذنا الكود أعلاه سوف تظهر الرسالت التاليت: 
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الخاتمى 

تم بفضل الله وعونه الانتهاء من الجزء الأول من سلسلة الإكليل المكتوبة التابعت 
للحقيبة البرمجية للغدّ الفيجوال بيسك 2015, بعد أن استعرضنا جميع أساسيات 
البرمجدٌ ومختلف المفاهيم التقنيئيٌ بشرح ميسر ونماذج تطبيقيدٌ لتكريس وترسيح 
المععلومات في الأذهان. 

في الجزء الثاني من سلسلةٌ الإكليل. سنتطرق إلى نمط البرمجة الكائنيةٌ التوجه 
0t 0116160 9‏ من خلال تعريف أبرز مفاهيهما بنفس المنهج 
والبيداغوجيا التي اتبعناها في هذا الكتاب. 

لكل شيء إذا ما تم نقصان» فإن وجدتم في طيات هذا الكتاب أخطاء لغوية أو تقنيتَ 
أو لديكم ملاحظات واقتراحات لتحسين السلسلة فلا تترددوا بمراسلتنا عبر العناوين 
الااكترونيئ التاليى: 

mobarmijoun@gmall.com 

how2progspace@gmall.com 

وكذلك زيارتنا على موقع أكاديمية المبرمجين العرب: 

www.mobarmjoun.COm 

ومتابعتنا عبر قناتنا على اليوتيوب وصفختنا على الفيسبوك: 
www.youtube.com/EssaadanlTV‏ 

www.facebook.com/EssaadaniPage 
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